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AU SOMMAIRE DES 
ANCIENS NUMEROS DE 


Numéro 23 

Educatif : TABLORIC. P/mt Formalé 

- Stnng : commandes graphiques - 
Sauvetage dur programme - Cal¬ 
culs de l'ORIC—tèaRtés et collages 

- Casse- bogues - clippiog. 


"Pour les seuls numéros encore 
disponibles en mai 1987* 


vous les objets tractais ? le 
Devin : chirologie ou jeu ? Un jeu : 
Frog Panlc Pq£ lister un program¬ 
me à partir du (et de la 

carte série) : ^AAAccord ez vos 
instruments de musique avec Fré- 
quencamètre. Text-Hires (fin). Léo¬ 
nard (suite). Deux recopies d'é¬ 
cran : GP 550 et Brother Ml009 
(Jasmin pnnter). Lister fEPROM du 
Microdisc. 


rORIC. Essai de la table graphique 
GRAPHISCOP. Le partage mé¬ 
moire de fORIC. UdMifres pour 
vous plaire (2).^UB®l<onitéur- 
Assamblsur Compte bancaire 
(suite et fin). 


Numéro 6 

Essais de l'XL DOS AUTOVERIF 
pour améliorer la fiabilité du char¬ 
gement cassette. Essai de la cane B 
ETS MAGECO. VOICE : ORIC 
parie dans interface RENUM-OES- 
TRUC renumêratfon et suppression 
de lignes Basic. Las interrup¬ 
tions : une horloge. Master-mind : 
jeu. ANADIS : analyse de dis¬ 
quettes au format MCRODISC. La 
Jasmln-Printer (Brother M 1009) à 
l'essai et recopie d'écran pour oette 
imprimante. 


Numéro 24 
Chasse au bug 
nateur - Singer 
N - Dossier T 
Print : éditeur d 
tection de sonr* 
caractères - Note - cale. 


Astrologie et ordi- 
(fin) Calculs dans 
bAiT - Mini- 
brfTWrolles - Dé- 
e - Ecran 59 x 28 


Numéro 13 

Transfert du FORTH sur MICRO¬ 
DISC. TANDEM 13 uQjogidel pour 
le DTL 2000 S*? 9 ** les cou¬ 
leurs de rORIC. Utilitaires pour vous 
plaire (3). Créer dos fenêtres sur 
ORIC. MICRODISC et JASMIN: 
ils communiquent City on Reid 


Numéro 19 

Léonard : fin de l'uolitaire création 
graphique Modifications de l"AT- 
MOS et du MlCROOfSC. Un mlnl- 
Interpréteur F mteclon du Hl- 
MEM. Le tri dfl langage machine 
Jeu éducatif rCUROP'ORIC. En sa¬ 
voir plus sur le SEDORIC Compte 
bancaire :gérez-le sur JASMIN Uti¬ 
litaires pour vous plaire (4). 


Numéro 25 

Test : le Jasmin- PC-^ies fichiers 
dont tout le mande pim - Ecriture 
stylée sur MCP 40 Jeu de la vie - 
Rem col or - Efl savoir plus sur FT 
DOS - Data ^^>RIC à 2 ROM - 
MUSIC(I) 


Numéro 7 

BLURK'S : jeu. Editeur de carac¬ 
tères pour redéfinir le jeu de carac¬ 
tères. Calculs an langage ma¬ 
chine pour aller plus vite. Lecture 
et Ecriture de secteurs sur Jas¬ 
min ou comment réparer une dis¬ 
quette. Tour dnorizon des Monl- 
teurs-Assembleurs du commerce. 
Le magnéto sans angoisse ou 
comment améliorer le chargement 
des cassettes. Essai du RANDOS 
Essai du crayon optique. Recopie 
d'écran sur MCP 40. L'interface 
TVS. 


Numéro 27 

Fenêtres — 
soft - TDK 
cassette — 


f l RS 232 par 
de disquette à 
Paris (2). 


Numéro 20 
CALCULA Tfl 
PUISSSANQ 
cran pour 
préteur Basic. 


|tc d'essai - 
- Recopie tfé- 
80 - Mini Inter- 


Numéro 28 

ORIC Hippu 
Surveillez vi 
déroulants 
togrammed^ 


iu de bord — 

— Les menus 

- Tracé d'his- 


Numéro 21 

Les interruptions ^^nimation gra¬ 
phique en 3 D - Jeu : Singerie (1) - 
SEDUTIL pour mteUX utiliser SEDO¬ 
RIC - Recopie page VIDEOTEX - 
Buffet soft po^nmpnmante - Super 
recopie d'écran 


Numéro 29 

A vos mesu 
— Sortie sol 
Moniteur 
Label - Fl 


nug pour Jasmin 
■ The car war — 
IesTRAT - Goto 
imes (21. 


Numéro 17 

Le TELESTRAT se présente. Trans¬ 
fert de récran TEXT en HIRES (1). 
Conversion du binaire en DATA. 
ORICTEL : logiciel ^application de 
la carte série -ttniHl Recopia ra¬ 
pide sur ImpripaMe mode texte 
Ecriture évolué#- LÉONARD : utili¬ 
taire de dessin (1). Fiches de 
paye : comment calculer les sa¬ 
laires avec ORIC. Jacquettes de cas¬ 
settes pour GP 50. Catalogue 
amélioré sur Jasmin 


Numéro 30 

Structure d| 
et Dr Agon^ 
Calculs er^ 
turbo - NÉ 


■RAT - Don Jean 
B 80.colonnes - 
lottante - Clavier 
imes (3). 


Numéro 22 

Tout sur le VIA 6522 - GROS: 
caractères géants - MUSICORIC ei 
JASMIN - Jeu : Singeries (2) - 
SWAP OVEFWr^r Diététique : 
mieux s a - entqi •fthéma de la 
carte contrôleur JASMIN - Compac¬ 
teur graphique — Animation gra¬ 
phique 3D. 


Les articles et programmes rappelés 
ci-dessus ne forment que ressentiel 
des différents numéros de THEORIC 
cités. Les essais des différents logi¬ 
ciels. les trucs et astuces, etc. sont 
autant d'arguments qui devraient 
vous Indter à compléter votre collec¬ 
tion de THEORIC. 


Numéro 11 
Ftors-sôrie t 
programme! 


'd'une multitude de 
us genres. 


Numéro 12 

Ecrivez votre jeu d'aventure : COL- 
DITZ. Le DTL 2000 ♦ un serveur 
pas cher. Schéma électronique de 


Numéro 18 

Un drive 3”1/2 à Triphonie 
PORC devient orgue. Connaissez- 


I 
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jet d'un drot d'accès et de reclhcehon dans le ca¬ 
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Les articles et programmes que nous publions dans 
ce numéro bénéficient, pour une grande pari, du 
droit d’auteur. De œ fa*, ils ne peuvent être imités, 
contrefaits, copiés par quelque procédé que œ soit, 
même partialement sans rautorisation écrite de la 
Société SORACOM et de r auteur ooncerné. Les opi¬ 
nions exprimées n'engagent que la responsabilité 
de leurs auteurs. Les différents montages présentés 
ne peuvent être réalisés que dans un but privé ou 
soentifique mais non commercial. Ces réserves 
s'appliquent également aux logioets publiés dans 
la revue. 


10 

12 

16 

LULA 10017 

L’horloge 
temps réel 

Jeu : 

Miss Catcrpill 

18 

FORTH: 

Soft Buffer 

ii 12 r 

.■ & 

8 4 

7 4 5 5 

20 

■J. Trames 

29 

Tous les produits 
pour Oric. 

41 

Sautez la pliure 

42 

Programmez et 
contrôlez un moteur 

46 

Géoric 

52 

Calculatoric 

54 

Interface pour 
Microdisc 




56 

Comment utiliser 
"Convert" ? 

57 

IMS A VE et ! MLOAD 

58 

Utilisaton du 
FT-DOS 3.2 

Actualité 1 

| Trucs et astuces 1 


3 
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22, rue de Montreuil 94300 VINCENNES - Tél. : (1 ) 43.28.22.06 

OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h. LE SAMEDI de 10 h 30 à 19 h 

REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 






SYNTHEVOC 1 


PROMOTION 


□ moniteur couleur. 2490 F 


□ atmos.990 F 


Le lecteur disquette conçu par ORIC FRANCE pour 
l'Atmos. 

□ lect. disq. MICRODISC. 2290 F 



££> | wvfi* 




• Tète d'impression 9 aiguilles 

• Vitesse d'impression de 100 cps en mode listing 
et 16 cps en NLQ 

• Niveau de bruit inférieur à 52 dB 

• Entrainement du papier par friction ou traction 

• Plusieurs styles de caractères : 

double largeur, gras, double frappe, compressé, italique, 
superscript, subscript, inverse et souligné 

• Marge et espacement ligne réglables par commandes 
logiciel. 

□ imprimante SEIKOSHA SP 180 . 2190F 


Le “must” pour les amateurs de graphisme. Utilisée 
par la majorité des créateurs de logiciel ceQtt tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
“top niveau’ des résultats obtenus, (ex. options faire 
des points, traits, boites, cercles, texte, remplir. "zoom"....) 
graphiscQp .990 F 

INTERFACI 


Cette interface va cous permettre de transformer voire 
moniteur couleur en T.V. 

□ interface T.V. 1490F 



Spécialement conçu pour ORIC ce magnétophone vous évitera 
bien des soucis. 

□ magnétophone.380 F 


PROMOTION logiciel ORIC 1 exclusivement 

pour 2 litres : 145 F pour 3 titres : 195 F pour 4 titres : 220 F pour 5 titres : 250 F 


□ trace dump 

□ oric mind 

□ guerre des couleurs 

□ ciros 

□ fromage 

□ jogger 
□cal oric 


□ le lièvre et la tortue 

□ le monde végétal 

□ morpion 

□ dicodoric 

□ zig zag 

□ acheron's rage 

□ centipède 


□ gastronon 

□ oric munch 

□ facturation 

□ uhima zone 

□ pengoric 

□ finances 

□ copy écran (pour GP 100) 


□ calculus 

□ gestion bancaire 

□ budget familial 

□ caractor 

□ guerre des couleurs 


LOGICIELS CASSETTES 

Indiquez-nous en le soulignant un (ou deux) titres de remplacement an cas de rupture de stock. 


□ tyrann.185 F 

□ vision.130 F 

□ xénon 1.105 F 

□ zorgon's revenge .115F 

□ oric base (anglais) .. .125 F 

□ orthocrack vol. 1.175F 

□ orthocrack vol. 2.175 F 

□ orthocrack vol. 3.175 F 

□ outimatic 1.125 F 

O playground 21 . 95 F 

□ rabbit .105 F 

□ rat splat .105 F 

□ saga.150 F 

□ starter 3D.135 F 

□ System" animation.140 F 

□ teknis .125 F 

□ terminus.125 F 

□ triathlon.155 F 

□ le fer d amnukor.195 F 

□ le général.120 F 

□ le masque d'or . 155 F 

□ nowotnick puuzzle.100 F 

□ lissage de courbes.125 F 

1 ) locus 105 F 

□assembl. symbol.145 F 

□ master point.145F 

□ probe3 .100F 


□ oric et son micro procès. 95 F 


□ clavidact.125F 

□ clovis 1 (Jeu d'échecs) 150 F 

6-eebfe ■ .10 5-F 

□ colorie. 95 F 

□ 0 bug (français).140 F 

□ 0 AO.155 F 

□ dam buster.115 F 

□ damae (jeu dames) .... 125 F 

□ dangeureusement vôtre 170 F 

□ dedal.110 F 

□ détective story.160 F 

□ dialogue.125 F 

□ digger .100 F 

□ dit..? d'ac! (sc. nat. 5e) 95 F 

□ dit..? d'ac! (sys. auteur) 95 F 

□ don juan .150 F 

□ don t press letter Q ,120F 

□ dossier G .145 F 

□ draughts.100 F 

□ élysées .145 F 

G 3 D ft m g tn.1 4 0 F 

□ a.t.m.135 F 

□ annuaire .125 F 

□ assimil (anglais. 275 F 

□ basic étendu .135 F 

□ brique à brac.110F 

□ businessman .145F 


□ ludico . 140 F 

□ macadam bumper (flipper) 165 F 

□ méfies-toi de méphisto . 95 F 

□ métholoto.140 F 

□ microgéo.140 F 

delta (arm vol) 12 5 f 


t r mnsren 

□ montségur 

□ moria . 

□ mots croisés .. 

□ musirama . 

□ nessy . 

□ formule 1 . 

□ galaxian . 

□ gestion de stock 

□ ghost gobbler .. 

□ gubbie 

□ insect insanity . 

□ intox et zoé ... 

□ karaté . 

□ l'aigle d'or _ 

□ la cité de cristal 

□ la flûte inca ... 

□ backgammon .. 
i ] en ee unt e r 


□ catégorie . 

□ cheops . 

□hades (assembl.). 


. 145 F 
,115F 
. 120 F 
. 140 F 
. 95 F 
. 140 F 
115F 
. 145 F 
. 105 F 
115 F 
. 100 F 
. 140 F 
. 110F 
. 180 F 
. 150 F 
. 125 F 
125F 


110F 
. 140 F 
.175F 



——85-F- 




49F 


LIVRES 

□ communi. avec oric ... 

□ interfaces pour oric .. 
G 56 progr . : 


□ lot n° 1 : triathlon 

macad. bumper (flip ) 
terminus (aventure) 

□loin 0 2 : karaté 
hadès 

terminus (aventure) 


145 F 
59 F 
-W+- 

□ T DOS et ses fichiers .. 185 F 

□ apprenez élect. sur oric 110F 

PROMOTION 


□ Toric à nu .151F 

□ nouveaux jeux atmos .. 88 F 

□ jeux graph. atmos. 95 F 

□ mieux program. sur oric 110 F 


JWrT 

□ loi n° 3 : ludico 


250 F 

métholoto 

DAO. 

325 F 

iJfrT 

□ lot n° 4 : clovis 1 (échecs) 

-445-F 

260 F 

musirama 
outimatic 1 

315 F 


pour l'achat de 2 lots: 5 % de remise 
pour l'achat de 4 lots: 10 % de remise 


Il ne lui manque que la parole*, synthé. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
rampaan* 1 

□ synthétiseur vocal. 55Q.F 240 F 


Rallonge Péritel 
Ne soyez plus collé à l'écran, (prise OIN è 6 broches). 
□ rallonge péritel.95 F 


□joystick switch-joy .185 F 



Interface tous jeux 
Grèce è cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 

□ interface joystick tous jeux. 365 F 


□ joystick compétition 
PR05000 .... 170 F 



□ bloc alim. ORIC.180 F 

□ alim. 12Vpourpéritel. 75F 

□rallonge de bus 1 slot.140 F 

Cassettes vierges C20 

□ les 5. 45 F 

□ les 10. 80 F 

□ câble imprimante.160 F 

□ stylosMCP40 . 75 F 

□ rouleaux papier MCP40 (par 4). 75 F 

□ disquette 3“. 31F 

□ disquette 3" (par 10). 275 F 



OFFRE SPECIALE ! 


Nous reprenons 500 F votre 
l'achat d'un ATARI 520 STF 

Que vous rcdwthw votre premier micro ou 
que vos ava envie de franche une étape décisive 
après avoir débuté avec un mknxminaleur 8 bits, 
chotsBsa r Atari 520 STF. Cet une valeur sûre. 

Elu onimatnir de Tannée aux USA. devenu 
rapidement le best-seller de la micro en Aflemaffte, 
dty plébiscité en France. ïAtari 520 STF est 
Tordinaleur le plus innovateur du marché 
Celui dont vous tirera le maximum de piacar 

Avec ï Atari 520 STF, vous aDa de 
révélation en révélabon- 
Puosance formidable avec une U.C de 520 Ko. 

Fadbté tfuûhsaîwn avec la souris et le système 
(f exploitation GEM. 


ORIC 1 ou ATMOS* pour 
avec moniteur monochrome 

Confort dubfcsabon avec le muhifenètrage. 

Performances paphjques acepOonncflis. 

Richesse dune palette de 512 couleurs. 

Capacités sonores éclatantes et interface MIDL 
Bien d'autres révélations vous attendent aux 
commandes de votre ordinateur. 

L Atari 520 STF, c'est le paphisme dans 
toute sa finesse, la couleur dans toute sa splendeur, 
la musique dans tout son édat_ 

Créatroté ou récréation. ï Atari 520 STF, 
c’est la micro plaisir dans toutes ses dimensions. 


"IMPORTANT : Ne pourront être repris que les appareils accompagnés de leur prise péritel et du bloc alimentation de l'ordinateur. 
□ ATARI 520 STF + moniteur monochrome : 4990 F - 500 F .4490 F 

COMMENT COMMANDER : JepnsMife OBIC t '“'ATMOS 

Cocher le(s) article(s) désiré(s) ou faites en une liste sur une feuille à part Fanes le total 4 frais de port (20 F pour aenaîs infeneursa 500 F 40 F de 500 a 1000 F. 60 F pour loul achat supérieur a 1000 F - 80 F pour 
tout achat supérieur à 2000 F). 

NOM__PRENOM :_ TEL :_ 

ADRESSE :_CODE POSTAL : _VILLE : _ 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


réseau 





















































































































































EDIT 




LE GRAND TOURNANT 


Après plus de 3 ans d'existence, THEOR1C arrive à un tournant décisif. Distribué en kiosques par le réseau NMPP, qui 
prélève au passage 50 % du prix de la revue, THEORIC atteint le seuil de rentabilité minimum, nous interdisant de continuer 
dans ces condilions-là. Notre groupe de presse édite plusieurs autres magazines, dans le secteur informatique ou traitant d'au¬ 
tres sujets, ce qui nous permettrait d'arrêter tout simplement la parution de THEORIC. 

Pourtant, nous en avons décidé autrement car nous accordons une certaine valeur sentimentale à ce titre ; aussi avons-nous 
misé sur votre collaboration. L'objectif à atteindre : 4000 abonnements avant le 31 décembre 1987. C'est l'affaire de tous ! 
Ne dites pas, comme certains de nos lecteurs l'affirment dans le sondage, "j'achète THEORIC régulièrement depuis le numéro 
1 mais je ne m'abonne pas parce que..." (la suite, c'est toujours une "bonne" raison !). 

Si cet objectif est atteint, THEORIC continuera uniquement sur abonnement, c'est-à-dire que vous le recevrez tous les mois à 
domicile. Il ne sera plus disponible en kiosques à partir de janvier 1988. Si, ensemble, nous ne gagnons pas ce pari, 
THEORIC cessera définitivement de paraître et le numéro de décembre sera le dernier. Nous rembourserons les abonnés qui 
nous avaient fait confiance (les chèques d'abonnement vont alimenter un compte spécial) et nous nous dirons adieu. Il ne 
vous restera plus qu'à regarder votre petit ATMOS ou votre TELESTRAT et à imaginer tous les logiciels ou Trucs et Astuces 
que vous auriez pu encore découvrir dans THEORIC. 

Réfléchissez bien. Ce pari à gagner est l'affaire de tous et VOUS êtes les premiers concernés. Abonnez-vous dès aujourd'hui 
et prenons rendez-vous pour l'année prochaine... La Rédaction 


ORDIELEC 

19, rue Hippolyte Flandrin 
69001 LYON 
Tél. 78.27.80.17 

Pai minitel fle 12-15 à I4h00 
st ae I9h30 a lûhOO a ce même numéro 

SPÉCIALISTE ORIC 

Démonstration Telestrat 
en permanence 

Composante connactlque 
et cables. 

Compatibles IBIVL 


COMMANDE ANCIENS NUMEROS 

(valable jusqu'à épuisement des stocks) 

Numéros 6 à 21 _30 F pièce 

Numéros 11 (hors série), 22 et suivants _25 F pièce 

Attention, numéros épuisés : 1-2-3-4-5-8-9-14-26 

NOM-Prénom _ 

Adresse _ 

Code postal _Ville_ 


Frais de port : 7,10 F pour 1 revue 

10,30 F pour 2 revues 
14,60 F pour 3 et 4 revues 
21,00 F au-dessus 


Ci-joint, chèque bancaire ou postal de 


_F. 
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Vous avez certainement lu l'édito¬ 
rial de ce numéro. Il est indispensa¬ 
ble que chacun se sente concerné 
par l'avenir de THEORIC. Nous sa¬ 
vons que beaucoup de lecteurs 
n'envisagent pas de changer de ma¬ 
tériel et restent fidèles à leur 
ATMOS ou TELESTRAT. Seul 
THEORIC peut continuer à les ali¬ 
menter en logiciels de qualité, trucs 
et astuces et à assurer le lien perma¬ 
nent entre les utilisateurs. 

Tous ensemble, passionnés que 
nous sommes par cette petite ma¬ 
chine, nous pouvons faire en sorte 
de gagner le pari des 4000 abonne¬ 
ments avant le 31 décembre. Nous, 
à la rédaction, en vous prouvant 
que nous avons les moyens de 
faire une revue de qualité (vous 
êtes nombreux à le souligner) et 
vous, Lecteurs, en répondant mas¬ 
sivement à cet appel. 

Distribuée exlusivement sur abon¬ 
nement, la revue restera rentable 
car le produit des ventes ne sera 
plus grévé de la commission 
(50% !) prélevée au passage par les 
NMPP qui assurent actuellement sa 
diffusion dans les kiosques. De 
plus, en réduisant le tirage, on dimi¬ 
nue un peu les coûts de fabrica¬ 
tion, ce qui nous permettra de lais¬ 
ser THEORIC à son prix actuel de 
26 F... Onze numéros à 26 F, cela 
fait 286 F direz-vous... Non, car 
nous avons décidé de maintenir 
provisoirement l'abonnement à son 
prix actuel soit 235 F pour la France 
métropolitaine. Une raison de plus 
pour ne pas remettre à demain ce 
que vous devez faire aujourd'hui ! 


LE SERVEUR 

Le téléphone de la rédaction est 
occupé ? Venez dialoguer directe¬ 
ment avec nous sur le serveur. 
Posez vos questions, faites vos sug¬ 
gestions et remarques sur le 3615 
code MHZ choix n° 1 : "Dialogue en 
direct”. Ce service sera, à titre expé¬ 
rimental, animé par la rédaction les 
mercredis et vendredis de lOh à 
12h. 

Vous pouvez, bien entendu, venir y 
dialoguer entre-vous, même en 
dehors de ces heures. 

La messagerie habituelle est mainte¬ 
nue. Utilisez-la pour déposer vos 
questions et messages dans la BAL 
SORACOM. Réponse assurée sous 
48h maximum. 

Le serveur, c'est également la pos¬ 
sibilité de consulter les petites 
annonces et de se tenir informé de 
l'actualité la plus récente. Nous 
avons encore bien d'autres projets 
en tête... 

ET LE SONDAGE MENSUEL ? 

Beaucoup de réponses reçues pour 
le n° 32... Vous avez profité de l'en¬ 
voi du sondage ORIC-THEORIC... Ce 
n'est pas une raison pour laisser 
tomber ensuite ! Il faut moins de 10 
minutes pour remplir la grille, une 
enveloppe et coller un timbre à 
1,90 F! N'oubliez pas que vos 
réponses sont soigneusement analy¬ 
sées pour équilibrer le contenu des 
prochains numéros. 

THEORIC ET LES CASSETTES 

Depuis longtemps, nombreux sont 
les lecteurs qui réclament des cas¬ 
settes contenant les programmes de 
la revue. Nous avons toujours été 
hostiles à cela de par le manque de 
facilité de lecture cassette sur ORIC. 
Une récente expérience nous prouve 
que nous avons eu raison : la vente 
promotionnelle des cassettes ERE 
informatique a généré bon nombre 
de retours. A trois exceptions près, 
où les bandes étaient réellement 
défectueuses, nous avons pu, à la 
rédaction, charger les cassettes 
mises en cause, au moyen d'un de 
nos magnétophones. Le célèbre pro¬ 
blème d'azimutage des têtes... 
Devant les pertes de temps et les 
frais postaux engagés pour la mani¬ 
pulation de ces retours, nous som¬ 
mes définitivement opposés à la 
commercialisation des iogiciels de 
THEORIC sur cassette. Croyez bien 


que nous regrettons de ne pouvoir 
offrir ce service aux lecteurs de 
THEORIC, comme nous le faisons 
pour nos lecteurs de CPC, mais sur 
ASMTRAD, cette "susceptibilité de 
l'azimutage" n'existe pas, sauf si le 
magnétophone est vraiment 
déréglé ! 

PROGRAMMES PREVUS 
DANS LES PROCHAINS THEORIC 

La rédaction teste toujours avec un 
peu d’avance les réalisations des 
lecteurs dignes d'être publiées 
dans la revue. Nous vous propose¬ 
rons, entre autres, dans nos pro¬ 
chains numéros : 

Hard : 

— une interface de sortie appliquée 
à la réalisation d'un chenillard 

— un programmeur d’EPROM et ses 
logiciels d’exploitation. 

Jeux : 

— un YAM pour les soirées d'hiver 

— un MORPION très bien présenté 

Educatifs : 

— un programme d'apprentissage 
de l'HEURE 

— une aide au CALCUL 

Utilitaires : 

— un TABLEUR entièrement en 
assembleur 

— un GRAPHEUR sachant grapher 
pour compléter le tableur 

— un traitement de textes 

— un assembleur-désassembleur- 
moniteur 

— de nouvelles instructions BASIC. 

LE LOGICIEL NOUVEAU EST 
ARRIVE ! 

ORIC International a travaillé pen¬ 
dant que vous vous reposiez et, 
propose pour la rentrée une trentai¬ 
ne de programmes sur disquettes, 
tous compatibles avec ORIC i ou 
ATMOS muni d’un Microdisc ou 
avec le Télestrat accompagné de sa 
cartouche STRATORIC. 

En voici la liste : 3D FONGUS, 3D 
MUNCH, ACHERON'S RAGE. AN¬ 
NUAIRE, COURS DE BASIC. DE¬ 
FENSE FORCE, DICO 5, DOGGY, 
DRACULA'S REVENGE, EURO¬ 
PE, GALAXY 5, GEOFRANCE, 
HOUSE OF DEATH, ICE GIANT, IN- 
TERTRON, JIMMY POUB. KIL- 
BURN ENCOUNTER, LORITEL, 
NOVOTNIK PUZZLE, ORIBLE, 
ORIC MUNCH, GODILL’ORIC, 
SKRAMBLE, STAR, STANLEY. 
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GRAPH 


STARFIGHTER, SUPER JEEP, SU¬ 
PER ADVANCED BREAKOUT, SU¬ 
PER JEEP, TRAITEMENT 3D, VI¬ 
DEO FLIPPER, LORIGRAPH, ZO¬ 
DIAC, ouf! 

EASYTEXTE, LA STAR DES 
TRAITEMENTS DE TEXTES, 
DISPONIBLE SUR 
MICRODISC ET TELESTRAT 



Le fameux traitement de textes, 
conçu à l'origine pour le lecteur 
vient d'être adapté par son auteur 
(Alexandre GESP) au Microdisc et 
au Télestrat (sous STRATORIC uni¬ 
quement). 

Le traitement de texte est encore 
amélioré par rapport à sa version 
Jasmin, avec en particulier un forma¬ 
tage beaucoup plus rapide. 

Bien entendu, les écritures et lectu¬ 
res de fichier sont à la vitesse 
SEDORIC. 

Banc d’essai complet le mois pro¬ 
chain, disponible depuis début 
août. 

Disquette EASYTEXTE pour Micro¬ 
disc ou Télestrat+STRATORIC ; 
390 francs chez ORIC International. 

MODEM RETOURNABLE 

ORIC distribuait déjà un modem 75/ - 
1200 bauds non retournable. Son 
petit copain retournable est à l'étu¬ 
de et sera disponible prochaine¬ 
ment. Il vous permettra de vous pas¬ 
ser complètement du minitel pour 
réaliser vos serveurs. 

Le modem est livré avec une nou¬ 
velle cartouche HYPER-BASIC qui 
vous permet de l'utiliser sans rien 
changer à votre serveur actuel. 

Bien entendu, le modem est tou¬ 
jours capable de réaliser l'émulation 
minitel en mode non retourné. 

Modem V23 retournable pour Té¬ 
lestrat, 1500 francs chez ORIC Inter¬ 
national. 

Existe aussi en version Atmos / Oric- 
1 sans logiciel d'application : 1200 
francs 


TELESTRAT II 

Suite logique du Télestrat, le Téles¬ 
trat Il sera disponible en novembre. 
C'est en fait un super Télestrat, in¬ 
cluant pratiquement toutes les ex¬ 
tensions. Voici ses caractéristi¬ 
ques: 

- boîtier métal comprenant l'alimen¬ 
tation avec interrupteur et deux lec¬ 
teurs de disquettes, 

-clavier détachable de type IBM 
AZERTY, 

- 2 lecteurs de disquettes 3 " 1/2 
double face double densité (800 
Ko), 

- interface 80 colonnes intégrée, 

- horloge permanente intégrée, 

- assembleurTELE-ASS intégré, 

- HYPER-BASIC 80 colonnes, 

- TELEMATIC assurant une émula¬ 
tion 100 % vidéotex, éditeur d'arbo¬ 
rescence permettant 10 choix par 
menu, éditeur de pages plus com¬ 
plet. 

Un look - et des capacités ! - profes¬ 
sionnelles donc pour ce super Té¬ 
lestrat. 

Banc d'essai complet le mois pro¬ 
chain. 

TELESTRAT II, 10 000 francs, dis¬ 
ponible courant novembre chez 
ORIC International. 

A LA DECOUVERTE DU 
TELESTRAT 

Premier livre sur Télestrat, voici un 
ouvrage qui va faire plaisir à tous les 
utilisateurs de cette "bête à commu¬ 
niquer" qu’est le Télestrat. 

En une vingtaine de chapitres le li¬ 
vre, dont le maître mot est l'esprit di¬ 
dactique, fait le tour de toutes les 
possibilités du Télestrat. 

Son titre n'est pas usurpé, loin s'en 
faut, puisqu'il explique tout : bran¬ 
chement du Télestrat, premiers pas 
en BASIC, toutes les instructions 
sont ensuites passées en revue, 
par thème, avec plusieurs exem¬ 
ples. 

De nombreuses astuces d'utilisa¬ 
tion parsèment l’ouvrage, le ren¬ 
dant aussi indispensable au débu¬ 
tant qu’à l'amateur chevronné dési¬ 
rant exploiter à fond sa machine. 

Livre A LA DECOUVERTE DU 
TELESTRAT, disponible fin sep¬ 
tembre chez ORIC International. 



Voici un logiciel que va apprécier le 
mathématicien en herbe qui som¬ 
meille dans tout programmeur. 

Il vous permet de tracer toutes les 
courbes qui vous passent par la tê¬ 
te, jusqu’à 10 simultanément. Idéal 
pour résoudre graphiquement des 
systèmes d’équation ! On a tout le 
loisir de changer d'échelle, de se 
déplacer dans la courbe etc. 
L'environnement est du style Macin¬ 
tosh : souris (on peut bien sur utili¬ 
ser aussi le clavier), fenêtres, on 
n'en croit pas ses yeux ! 

Disquette GRAPH pour Télestrat, 
200 francs chez ORIC International. 



Ce logiciel va intéresser tous les 
possesseurs de serveur sur Téles¬ 
trat. En effet, qui n’a pas eu envie 
d'imprimer toutes les pages de son 
serveur, ou de lister ne serait-ce 
que les noms des pages ? Faire ce 
travail manuellement est très long 
et fastidieux. 

DUMPARBO, vous l’avez deviné, 
permet d'imprimer des pages auto¬ 
matiquement. Voici ses caractéristi¬ 
ques: 
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ACTUALITES 



-impression par ordre alphabéti¬ 
que du nom de toutes les pages 
d'une arborescence donnée, 

- impression des caractéristiques 
de toutes les pages d'une arbores¬ 
cence donnée : taille en secteur, 
taille en octet, taille à l'écran, afficha¬ 
ge du curseur, type de la page (nor¬ 
male, menu, BASIC etc), 
-impression en mode rapide de 
toutes les pages d'une arborescen¬ 
ce donnée, 

- impression en mode soigné (avec 
graphismes) de toutes les pages 
d'une arborescence donnée. 


Disquette DUMPARBO pour Téles- 
trat, 200 francs chez ORIC Interna¬ 
tional. 



MESSAGERIE 

Pour beaucoup de serveurs, la boî¬ 
te aux lettres standard de la 
TELEMATIC ne suffit pas. 

Voici un logiciel de messagerie, 
très simple à intégrer à votre arbo¬ 
rescence, qui vous permet de réali¬ 
ser une messagerie personnalisée 
très complète : 

- messagerie commerciale, avec 
lecture à distance par mot de passe 
pour les messages de vos clients, 

- messagerie personnelle, qui per¬ 
met aux utilisateurs de créer leur 
propre boîte aux lettres, protégée 
bien entendu par un mot de passe. 

Disquette MESSAGERIE pour 
Télestrat, 1500 francs chez ORIC 
International. 

Démonstration sur le serveur ORIC 
qui, rappelons-le, a fait peau neu¬ 
ve! au (16-1 ) 42.81.22.72. 
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Sondage ORIC-International 
et THEORIC : les résultats 

une constation : vous avez été nombreux à répondre, preuve 
Ae vous vous sentez concernés par l’avenir de votre machine... 

Mous avons isolé 500 réponses pour le traitement statistique du 
TOndage. Cet échantillon semble être représentatif de notre lectorat. 

Sans reprendre tout le sondage dans le détail, nous avons relevé 
quelques points significatifs qui, nous le croyons, intéresseront 
l'ensemble des lecteurs. 


La machine idéale 

Microprocesseur 16 bits : 63% 
Mémoire de 1 28 à 512 Ko : 77% 
80 colonnes indispensables : 82% 

Le langage vedette reste néanmoins 
le BASIC. La compatibilité avec un 
système d'exploitation déjà existant 
ne semble pas vous préoccuper 
pourvu qu'il soit performant. Un 
synthétiseur de sons génial, un 
synthétiseur vocal et un moden 
sont, de loin, les indispensables 
interfaces qui doivent équiper la 
machine. Pour le prix ? Vous êtes 
assez réalistes... 

A 57%, vous êtes prêts à signer un 
chèque dont le montant se situe 
entre 4000 et 6000 F. 

La machine actuelle 

Ces remarques concernent des amé¬ 
liorations à apporter au TELESTRA T 
Avec une majorité indiscutable et 
comme un seul homme, vous récla¬ 
mez : 80 colonnes, plus de possibi¬ 
lités graphiques et un HYPER-BASIC 
plus performant. 

Quant aux possesseurs d'ATMOS, 
ils veulent, en priorité, des cartes 
d'E/S et des cartouches de jeu. 
Curieusement, la carte 80 colonnes 
est moins sollicitée. Il est vrai qu'au 
prix actuel de l'ATMOS, la carte 80 
colonnes en supplément rendrait 
l'ensemble peu compétitif ! 

L'achat d'un 
MICRODISC 

17% d'entre vous le possèdent déjà, 
à égalité (17% I) avec le Jasmin de 
TRAN. Belle remontée du Microdisc 
depuis le précédent sondage... Il est 
vrai que la disparition du Jasmin et 


la mise en place du SEDORIC, vrai¬ 
ment performant, y sont pour quel¬ 
que chose ! 

Les intentions d'achat représentent 
néanmoins 31%. Gageons que, 
avec la mise en place des disquet¬ 
tes de THEORIC au format SEDORIC 
et grâce aux accords d'ORIC Inter¬ 
national avec certains éditeurs de 
logiciels, les utilisateurs de disquet¬ 
tes seront plus nombreux. Le prix 
souhaité se situe autour de 
1500 F... 

Le passage au 
TELESTRA T 

24% des possesseurs d'ATMOS 
envisagent l'achat d'un TELES- 
TRAT, d'abord pour l'HYPER-BASIC, 
ensuite pour la télématique. Les 
75% restants se satisfont de l'AT- 
MOS, craignent le manque de logo- 
ciels nouveaux ou trouvent le 
TELESTRAT trop cher. 

Mais, au fait, combien êtes-vous à 
posséder déjà un TELESTRAT ? 
14%... 

En conclusion, vous restez somme 
toute, assez fidèles au matériel 
ORIC, même si l'absence de logiciels 
nouveaux vous fait lorgner vers 
d'autres marques plus à la mode. 

Et THEORIC 
dans tout cela ? 

C'est à rougir de plaisir ! 61 % de nos 
lecteurs nous suivent depuis le début 
et 67% trouvent ''bon'' son équili¬ 
bre actuel. Les services de la rédac¬ 
tion obtiennent également vos suf¬ 
frages et, parmi les 40% d'abonnés, 
on trouve 87% de gens satisfaits par 
leur abonnement ! Là, le progrès est 


très net, venant récompenser tous 
les efforts accomplis ces derniers 
mois pour vous servir la revue plus 
rapidement. Ce que vous attendez 
de la revue est, à la fois, varié et 
équilibré. Nous en tiendrons compte 
dès nos prochains numéros afin que 
chacun trouve, tous les mois, un 
nouveau plaisir à lire THEORIC. 

Un compliment dont on se serait 
passé : "Très bon car il est rare de 
voir une revue qui ne soit pas inon¬ 
dée par la pub”. Là, pas d'accord ! 
On aimerait avoir beaucoup plus de 
pub car cela prouverait que ORIC 
est en bonne santé et nous permet¬ 
trait d'augmenter la surface rédac¬ 
tionnelle... 

Pourquoi n'êtes-vous 
pas abonné ? 

Nous avons gardé pour la fin le trai¬ 
tement de cette question car elle 
nous servira de conclusion. Si cer¬ 
tains attendent "pour voir” depuis 
le numéro 1, d'autres déclarent être 
amoureux de leur détaillant (ils en 
ont le droit I) ou préfèrent choisir 
d'acheter la revue en fonction du 
contenu. Les délais de livraison tar¬ 
difs, imputables aux PTT nous ont 
fait bien du tort mais, depuis le nou 
veau routage de la revue, effectué 
par nos soins depuis nos locaux, bon 
nombre d'abonnés ont constaté une 
très nette amélioration. De toute 
façon, dans trois mois, le problème 
ne se posera plus. Ou nous aurons 
obtenu 4000 abonnements à THEO¬ 
RIC et nous vous livrerons la revue 
uniquement de cette manière (plus 
de vente en kiosque) ou le pari est 
perdu et THEORIC disparaît... Que 
tous ceux qui hésitent encore réagis¬ 
sent vite : il n'y a plus de temps à 
perdre ! 
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Description 

L'ULA HCS 10017 est un circuit 
complexe équipant toute la gamme 
des micro-ordinateurs ORIC et re¬ 
groupant dans un boîtier 40 bro¬ 
ches de nombreuses fonctions. En 
effet ce chip s'occupe: 

-de la génération des timings de 
la machine ; 

-du rafraîchissement de mémoire 
dynamique ; 

- du décodage d'adresses ; 

- de l'affichage graphique couleur. 

Toutes ces fonctions sont résu¬ 
mées dans le synoptique simplifié 
de la figure 1. 



Brochage 

Le brochage complet vous est don¬ 
né sur la figure 2 et nous allons dé¬ 
tailler maintenant la fonction de cha¬ 
que broche. 

- Vcc, Gnd : 

Alimentation du boîtier (5 volts). 

- CLK : 

Entrée horloge principale (12 MHz). 

• Broches en liaison avec le micro¬ 
processeur : 


L'ULA 

HCS 

10017 


Hervé LEMAIRE 


N ous allons, en 

deux articles, 
faire le tour de 
l'ULA HCS 10017.NOUS 
nous attacheront ce 

mois-cl à l'aspect Hard¬ 
ware de cette fameuse 
U LA. 



- D0 à D7 : 

Bus de données 

- A8 à Al 5 : 

Bus d'adresses (poids forts) 

-RM: 

Signal de direction des données 

- C out : 

Sortie horloge 1 MHz 

• Broches en liaison avec la RAM : 

- MAO à MA7 : 

Bus d'adresses RAM 

- W: 

Signal d'écriture RAM 

- RAS,CAS : 

Sélection de la mémoire (ligne et co¬ 
lonne). (Je signale aux marseillais 
que çà n'a rien à voir avec la Rascas¬ 
se chère à Pagnol, note de F.B.) 

- MUX : 

Commande de multiplexeur exter¬ 
ne. 

• Décodage d’adresses: 


-I/O: 

Valide les adresses hexadécimales 
#300 à #3FF. 

- ROMsel : 

Valide les adresses hexadécimales 
#C000 à#FFFF. 

-MAP: 

Entrée de blocage du décodage 
d'adresses 


• Sorties vidéo: 

- Rouge : 

Signal rouge (niveaux TTL) 

-Vert: 

Signal rouge (niveaux TTL) 

- Bleu : 

Signal rouge (niveaux TTL) 

- Sync : 

Sortie synchro composite. 
Fonctionnement 

Le chronogramme de la figure 3 
nous indique le séquencement 
des signaux Coût, RAS, CAS et 
MUX par rapport à l'horloge princi¬ 
pale (12 MHz). 

On remarque que le signal MUX ne 
passe au niveau 1 que lorsque 
Coût est à 1 (c'est-à-dire que les 
adresses fournies par le micropro¬ 
cesseur sont valides). 

MUX va donc nous servir à aiguiller 
les adresses A0 à A7 et MAO à MA7 
à l'entrée de la RAM. 

a) MUX=1 : A0 à A7 sont validées 
par RAS. 

b) MUX=0 : MAO à MA7 sont vali¬ 
dées par CAS. 

Remarque : tout le monde a deviné 
que durant ce cytle, MAO à MA7 
sont le reflet exact de A8 à Al 5. 

Le circuit génère RAS, CAS et W : il 
faut donc les inverser pour un fonc¬ 
tionnement correct ! --> Notre 
microprocesseur sait donc accéder 
d'une manière transparente à sa mé¬ 
moire vive (entre #0000 et #BFFF 
exceptées #0300 à #03FF naturel¬ 
lement). 

Pendant les cycles pour lesquels 
MUX reste à 0, c’est le processeur 
graphique qui accède à la mémoire 
pour mettre à jour l'affichage sur l'é¬ 
cran, ce qui assure aussi le rafraî- 
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chissement de la mémoire. 

Dans le cas d'un accès aux adres¬ 
ses comprises entre #0300 et 
#03FF ainsi qu'entre #C000 et 
#FFFF, l'ULA ne génère pas le si¬ 
gnal CAS comme on le voit sur la fi¬ 
gure 4. 

Ainsi, la RAM est bloquée et le mi¬ 
cro accède aux périphériques ou à 
la ROM. 

Précisions sur la fonction du signal 
MAP: 

- Pour un fonctionnement normal, 
c'est-à-dire comme décrit précé¬ 
demment, cette broche doit être for¬ 
cée au niveau logique 1. 

- Le fait de le faire passer à 0 va 
avoir pour effet d'autoriser l'accès à 
la RAM entre #C000 et #FFFF. 

- La figure 4 nous montre l'allure 
du signal MAP à générer pour vos 
extensions futures. 

Rendez-vous le mois prochain pour 
les explications sur la programma¬ 
tion de l'ULA (modes TEXT, HIRES 
etc ...)■ 
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HORLOGE TEMPS REEL 



HORLOGE TEMPS REEL 


Oric International distribue depuis 
quelques temps une horloge 
temps réel qui a la propriété, entre 
autres, de garder l'heure pendant 
plusieurs années grâce à une pile 
intégrée. 

Il était dès lors tentant de se servir 
de cette horloge de manière cou¬ 
rante. 

L'horloge s'utilise très facilement 
grâce à quelques PEEK et POKE. 
Nous allons toutefois présenter un 
programme qui permet d’utiliser 
l'horloge temps réel avec les com¬ 
mandes de l'HYPER-BASIC TIMES, 
CLOCKSET et CLOCKOFF. 

Le principe du programme est sim¬ 
ple : il se loge dans les IRQ et reco¬ 
pie le contenu de l'heure de l'horlo¬ 
ge dans les registres normalement 
utilisés par le TELEMON pour l'hor¬ 
loge soft. 


Cette méthode a toutefois deux in¬ 
convénients : si les IRQ ne sont pas 
autorisées, TIMES ne sera pas mis à 
jour (mais reviendra à jour dès la pre¬ 
mière IRQ, sans décalage) et l'ins¬ 
truction TIME est inopérante. 

Il faut donc toujours modifier l'heure 
par des POKE. Cet inconvénient 
n'est pas très grave puisque l'horlo¬ 
ge ne sera en général mise à l’heu¬ 
re qu'une fois. 

Le programme a été écrit en TELE- 
ASS. La version assemblée est lis¬ 
tée pour permettre de taper le pro¬ 
gramme avec un moniteur du style 
STRATMON si on ne dispose pas 
deTELE-ASS. 

Le programme est donné en 
#9780, on peut le placer ailleurs 
sans aucun problème. 

Une fois le programme tapé, il faut 
le sauvegarder par: 


SAVE "HTR.COM" 
,A#9780,E#97C5,AUTO. 

Pour l'utiliser, il suffit de charger le 
programme (taper simplement 
HTR). 

Pour l’utilisation en BASIC, faire 
HIMEM #9780 pour protéger le 
programme. 


Rappelons que pour mettre l'horlo¬ 
ge à l'heure, il suffit de faire : 

POKE #361,heure :POKE 
#362,mlnutes:POKE 
#363,secondes. 

Nous verrons prochainement com¬ 
ment simuler la commande CLOCK¬ 
SET sur ORIC-1 ou ATM OS. 


12 













\0° , 

, 

\20 , 
Ç<vO 






ça' 


lo^°X^ 

»^ C& \9» n 
3^ 


\ 


ça 1 

oo^ 


0^ C 


<îe 


3e 3 


t-t 


at 


sja 


d fe0 , 
d ^ 0 , e<P x 
d*° , 

1 9 ° o-î^-CÎ 

2 °° u-î^S 
2^° *£«* 
iî» 

23 » «7 
2.& 0 
2 ^° , 
2 *>° , 
21 ° , 
2 »° , 


Ve' 


s& 


,es 


-A* 


c^ 


V e - 


\\0* 


\o<3 e 


-3&0 

ç,Q^ , 3 fe3 

«tf» 5362 

çQ' 3 


536 ^ 


0^ G 


69 


, 16 ° 


de 


X°' 




.et 


\e 


ue c 


.te' 


dt 


3?û 


: « 


\ 

\3l 

► v^*S& 

• \^ c to 


&■ 

P* \ 7 iÿQ 

% ^ 
cd*^ 
ç5 s 




.ve 




ie 3 


X.V 


oo 


-J.Ç.Q 


^ç.CÎ 





TRUCS ET ASTUCES 

Fabrice BROCHE 



TRUCS ET ASTUCES 
POUR TELESTRAT 

■TTINPUT ET HYPER-BASIC 


TRUCS ET ASTUCES 
POUR ORIC-1 et 
ATMOS 


■MH TYPE ET LTYPE 

La commande BUILD du SEDORIC 
enregistre TOUS les caractères frap¬ 
pés au clavier dans un fichier sé¬ 
quentiel, y compris les codes de 
contrôle, du style DEL, déplace¬ 
ment du curseur etc. 

Mais tous ces caractères ne seront 
pas forcément compris par l'impri¬ 
mante. Ainsi, si vous frappez DEL, 
le caractère sera bien effacé à l'é¬ 
cran (TYPE) mais par sur une impri¬ 
mante, qui ne comprend pas le co¬ 
de DEL (127). 

LTYPE ne donnera donc probable¬ 
ment pas la même chose que 
TYPE. 

Il n'existe pas de solution simple 
pour que LTYPE donne exacte¬ 
ment le même résultat que TYPE. 
Une solution serait d'analyser les 
chaînes du fichier séquentiel, en 
supprimant un caractère lorsqu'on 
rencontre DEL. Mais il faudrait aussi 
prendre en compte les déplace¬ 
ments de curseurs etc- 


TRUCS ET ASTUCES 
POUR ATMOS ET 
TELESTRAT 

i/o error i 

Les disquettes sont un support rela¬ 
tivement fragile, sensible en particu¬ 
lier aux rayonnements électro¬ 


magnétiques et à la poussière. 

Il arrive ainsi que le SEDORIC ou le 
STRATSED n'arrive pas à écrire ou 
lire correctement les secteurs 
d'une disquette. 

Dans ce cas, une erreur d'entrée/ 
sortie est générée. Les caractéristi¬ 
ques de l'erreur sont précisées : le 
lecteur, la piste et le secteur où 
s'est produite l’erreur, mais aussi si 
c’est lors d'une écriture ou d'une 
lecture de secteur et enfin le type 
de l'erreur. 

Les deux types d'erreurs les plus 
courants sont 08 et 10. 

- 08 signifie que le secteur a été 
trouvé, mais que les données qu'il 
contient sont altérées. Il se peut 
qu'un seul bit soit altéré, auquel cas 
le secteur est récupérable facile¬ 
ment : il suffit avec un utilitaire de tra¬ 
vail sur disque (NIBBLE pour 
SEDORIC et STRAT-DISK pour 
STRATSED) de lire puis de réécrire 
le secteur pour que tout rentre 
dans l'ordre. 

-10 signifie que le secteur n'a pas 
été trouvé, c'est-à-dire que la piste 
est très altérée. Dans ce cas, le pro¬ 
gramme qui contient le secteur est 
probablement perdu.Ces erreurs 
de lecture peuvent survenir à tout 
instant, quelle que soit la comman¬ 
de DOS, la piste 20 (14 en hexa) 
étant plus vulnérable car, conte¬ 
nant le catalogue, elle est la plus 
souvent consultée. 


L'instruction TINPUT de l'Hyper- 
Basic est spécialement prévue 
pour travailler avec la cartouche TE- 
LEMATIC, c'est-à-dire dans un pro¬ 
gramme serveur. 

En effet, cette instruction travaille 
sur le canal 1 (alors que les instruc¬ 
tions usuelles PRINT, INPUTtravail¬ 
lent sur le canal 0). Il faut donc ou¬ 
vrir des entrées-sorties sur ce canal 
pour qu'elle donne quelque chose. 
Mais cette instruction présente un 
inconvénient majeur, qui la rend inu¬ 
tilisable ailleurs que dans un pro¬ 
gramme lié à la TELEMATIC : elle 
rend la main au bout de 2 minutes 
30 secondes à la TELEMATIC. 
Dans ce cas, le plantage est assuré 
si le programme n'est pas un ser¬ 
veur. 

Donc N'UTILISEZ JAMAIS TIN¬ 
PUT EN DEHORS D'UN PRO¬ 
GRAMME SERVEUR. 

■■■ SERVEUR : SENS 
OBLIGATOIRE 

De nombreux utilisateurs n'arrivent 
pas à faire fonctionner des serveurs 
BASIC , sous le contrôle de l'arbo¬ 
rescence. C'est pourtant simple... 
si on prend la peine de lire le ma- 
est absolument impératif de lancer 
ce serveur par le BASIC, à l'aide du 
mot-clé SERVEUR contenu dans 
votre programme. 

Tout lancement par le menu TELE¬ 
MATIC "Lancer le serveur" se solde¬ 
ra par divers plantages. 
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Ensuite, avant de décréter que rien 
ne marche, faire un programme sur 
le modèle donné à la page 72 du 
manuel des applications télémati¬ 
ques. Ce modèle a été décrit pour 
sa simplicité, alors ne le méprisez 
pas ! 

PRINT CANAL 1 

Lorsque vous faites des serveurs 
en TELEMATIC, utilisez TOU¬ 
JOURS l’ordre PRINT ]1 pour affi¬ 
cher des données sur le minitel du 
correspondant. Ceci n’a que des 
avantages, même celui d'être plus 
rapide à taper que MPRINT (?]1 ; est 
plus court que MPRINT qui ne s’a¬ 
brège pas). 

Vous serez sûrs en effet que votre 
programme tournera sans problè¬ 
me en mode borne de communica¬ 
tion, ce qui n’est pas le cas si vous 
utilisez des MPRINT. 

De plus, vous éviterez les inconvé¬ 
nients liés aux instructions MOUT 
et MPRINT. 

MPRINT ET COMPAGNIE 

Les instructions MPRINT et MOUT 
sont très pratiques, mais présen¬ 
tent un inconvénient : lorsqu’on en¬ 
voie beaucoup de données, elles 
saturent l'émission des données, 
et les caractères ne sont donc pas 
transmis correctement. 

Par exemple, le programme suivant 
ne fonctionne pas correctement : 

10 COUNT1000 
20 MPRINT "A"; 

30 UNCOUNT 

Ceci est dû au fait que l'instruction 
MPRINT ouvre puis ferme implicite¬ 
ment le canal minitel. 

Pour résoudre ce problème, il suffit 
d'utiliser la gestion des canaux : 

10 OPCH3.15 
20 COUNT 1000 
30 PRINT ]1 ;"A"; 

40 UNCOUNT 
50 CLCH3.15 

Cet inconvénient est aussi percepti¬ 
ble avec MOUT. Pour les instruc¬ 
tions SPRINT et SOUT, il n’est per¬ 
ceptible qu'aux basses vitesses 
(moins de 4800 bauds). 



STRAT-DISK, 

UN ESPION PATENTE ! 


Nom: STRAT-DISK 
Type : utilitaire pourTélestrat 
Distributeur : ORIC International 
Prix : 250 francs 
Auteur : Guillaume MEISTER 
Support : Disquette 
Ce logiciel, distribué depuis juillet 
par Oric International, est un utilitai¬ 
re de travail sur la disquette. 

Ce logiciel a deux facettes : 

- il rendra service à tous ceux qui 
ont initialisé par erreur une disquet¬ 
te, ou fait des DEL malencontreux 
etc. 

- il permetra aux bidouilleurs d'as¬ 
souvir leur soif de connaissance de 
la disquette. 

Voici un résumé des possibilités du 
logiciel : STRAT-DISK est séparé 
en deux parties : 

- un éditeur de secteur 
-un éditeur de fichier. 

Voyons tout d’abord l'éditeur de fi¬ 
chier. 

Il permet de modifier le status d'un fi¬ 
chier (adresse de chargement, exé¬ 
cution automatique, adresse d’exé¬ 
cution ...). 

La modification se fait très simple¬ 
ment en mode pleine page. On 
peut aussi localiser le premier sec¬ 
teur d'un fichier et le modifier direc¬ 
tement, sans aller se perdre dans 
les méandres du catalogue. 

La partie la plus intéressante est 
sans conteste la possibilité de récu¬ 
pérer un fichier disparu du catalo¬ 
gue. Un fichier peut disparaître du 
catalogue, tout en étant (probable¬ 
ment) toujours présent sur la dis¬ 
quette, pour trois raisons : 

- un DEL explicite (DEL, DELBAK) 
ou implicite (SAVEO, SAVEU...) 

- un INIT sans formatage (un INIT 
avec formatage détruit définitive¬ 
ment tous les fichiers) 

- des problèmes de structure dans 
la disquette, erreur de lecture ou 
écriture etc. 

Dans tous ces cas, STRATDISK va 
vous permettre de récupérer vos fi¬ 


chiers, en les remplaçant automati¬ 
quement dans le catalogue ! 

Si vous avez perdu beaucoup de fi¬ 
chiers, STRAT-DISK a pensé à 
vous : une option permet de re¬ 
créer entièrement le catalogue de 
votre disquette. Les fichiers seront 
nommés TELESTRAT.001, TE- 
LESTRAT.002 etc. Il ne vous reste¬ 
ra plus qu'à récupérer vos fichiers 
et à leur rendre leur nom initial. 

Cette option à elle seule justifie l'a¬ 
chat de ce logiciel mais STRAT- 
DISK est aussi un éditeur de sec¬ 
teur d'excellente facture. 

Vous pouvez ainsi lire et écrire n'im¬ 
porte quel secteur de la disquette, 
le modifier (en hexa décimal aussi 
bien qu'en ASCII) en pleine page 
etc. 

Des commandes facilitent la vie, per¬ 
mettant de lire directement le sec¬ 
teur suivant ou précédent par exem¬ 
ple. 

En résumé, STRAT-DISK est un uti¬ 
litaire indispensable. J'ai dit ! 
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MISS 

CATERPILL 


Pierre Mikaël DIDIER 


E crire un jeu en BASIC, en s'inspirant d'un thème connu (Ici la 
chenille vorace), tout en soignant sa présentation, constitue un 
exercice profitable à qui veut débuter une carrière de program¬ 
meur. Voici un exemple qui prouvera, si cela est encore nécessaire, 
que BASIC ne rime pas forcément avec médiocrité ! 


100 POKEI26A,10:POKE48035,0 
110 CLS:PAPER4:INK3 
120 PL0T6,12,'-- VEUILLEZ PATIENTER S 
VP 

130 GOSUB520 
140 G0SUB2150 

150 PING : POKEI26A, 10 : G0T0140 
160 DINX(1010),E(1010) 

170 VI=6 
130 X-IBEB4 
190 PT=0:SC=0 
200 GH=0H+1 
210 IF0N>1THEN220 
220 VI=VI-1:IFVI=0THEN230ELSE260 
230 VAIT25:CALLtFBl4 
240 FORMAI2T04STEP-1:MUSIC1,3,N,10 : VA 
IT30:NEXT:VAIT30:PLAY0,0,0,0:VAIT50 
250 CALLIFB14 :CLEAR: GOTO140 
260 L=3:B=1000:CH=0:A«=0:CT=10:DCT=10 
270 TR=0 

280 MH=115 :X=#BEB4 
290 CLS.GOSUB850 

300 XH=INT(RND(111331+1 :YH=INT(RND( 1 ) 
120)4] 

310 IFSCRN(XH+3,YH+5)O 32THEN300ELSE3 
30 

320 REM ttt DEPLACEMENTS ttt 
330 PLAY2,2,3,1500 
340 K=PEEK(#20A) 

350 B=B-1 

360 IFKMDFTHENF=-l:E(B)M61 
370 IFK=IBFTHENF=i28:E(B)=*62 
380 IFK=IF7THENF=-*28:E(B)=«63 
390 IFK=*7FTHENF=1:E(B)=#64 
400 A=PEEK(X+F) : IFAO#20ANDA<I73THENP 
LAY0,1,0,1000 :VAIT100:GOTO200 
410 X=X+F 
420 G=B+L 


430 IFTR=0THENPOKEX(G+l),I20:POKEX(G) 
,E(G-1)+4ELSETR=TR-1 
440 X(B)=X:POKEX,E(B) 

450 POKEX(B+1),#69 
460 I FA >114THENG0SUB1050 
470 CH=CH+.3 :POKE4BBD4+CH,«20 :P0KE4BB 
F4-CHJ20 

460 IFCH>15THENG0SUB1180 
490 AM=AM+1:IFAH=1THENPL0TXH+3,YH+5,N 
H 

500 GOTO340 

510 REM ttt REDEF. DES CARACTERES ttt 
520 FORI=#T0#E7:READZ 
530 POKEfB400+l8tl61+I,2:NEXT 
540 DATA38,41,31,31,31,31,41,38 
550 DATA30,45,45,30,12,51,0,0 
560 DATA0,0,51,12,30,45,45,30 
570 DATA25,37,62,62,62,62,37,25 
580 DATA24,60,62,63,63,62,60,24 
590 DATA0,0,12,30,63,63,63,30 
600 DATA30,63,63,63,30,12,0,0 
610 DATA6,15,31,63,63,31,15,6 
620 DATA26,63,63,62,31,63,63,22 
630 DATA63,48,40,36,36,35,35,35 
640 DATA63,0,0,0,0,63,63,63 
650 DATA63,3,5,9,25,49,49,49 
660 DATA49,49,49,49,49,49,49,49 
670 DATA49,49,49,25,9,5,3,63 
680 DATA63,63,63,0,0,0,0,63 
690 DATA35,35,35,38,36,40,48,63 
700 DATA35,35,35,35,35,35,35,35 
710 DATA0,0,21,21,21,21,0,0 
720 DATA48,24,4,12,19,51,48,0 
730 DATA2,4,41,63,41,26,18,12 
740 DATA48,27,6,8 ,28,60,60,24 
750 DATA6,8,30,55,59,63,30,0 
760 DATA0,3,14,30,54,54,51,24 
770 DATA7,28,42,21,10,20,10,4 


780 DATA0,0,26,63,63,63,30,0 
790 DATAI2,30,59,63,63,63,30,12 
800 DATA3,52,26,53,43,53,26,12 r 
810 DATA30,63,0,42,21,0,63,30 
820 DATA0,0,0,0,0,0,0,0 
830 RETURN 

840 REM ttt TABLEAU ttt 
350 At=*jkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
kkkkkkl* 

860 B)=’poooooooooooooooooooooooooooo 
oooooon* 

870 INK4 

880 PL0T2,4,A»:F0RA=5T025:PL0T37,A,■■ 
■:NEXT:PL0T2,26,B» 

890 F0RA=25T05STEP-1 : PL0T2, A, * q * : NEXT 
: PLOT 2,0,Ai:PL0T37,2,"■* : PLOT2,2,"q" 
900 CD=10 

910 IFPT=1THENGOSUB1350 
920 1FPT=2THENGOSUB1400 
930 IFPT=3THENGOSUB1460 
940 IFPT-4THENGOSUB1560 
950 IFPT=5THENCD=7:GOSUB1630 
960 IFPT>5THENPT=0 

970 PL0T37,1,:PLOT2,1,’q’:PL0T2,3, 
Bl 

080 INK3 

990 C$="rrrrrrrrrrrrrrrrrrrrrrrrrrrrr 
rrr’:PL0T4,1,Ci 

1000 D$="hid -> C.T-> SCORE->’:P 

L0T5,2,Dt 

1010 PLOT 11,2, STR< (VI) : PLOT 19,2, STR< ( 
CT):PL0T30,2,STR$(SC) 

1020 PLOT10,CD,"D --> POUR DEBUTER’:G 
ETA»:IFA$=’D’THEN1030ELSE1020 
1030 PLOTIO.CD,’ *:R 

ETURN 

D040 REM ttt ABSORBTION ALIMENTS ttt 
1050 IFCT=DCTTHEN1060ELSE1220 
1060 HH=MH+1:AM=0 
1070 PLAY1,4,1,1500 
1080 XH=INT<RND(1)1331+1:YH=INT(RND(1 
U201+1 

1090 IFSCRN(XH+3,YH+5 ) 0 32THEN1080 
1100 L=L+7:CT=CT-1 :SC=SC+100 :CH=0 
1110 DCT=DCT-1 
1120 PL0T4,1,C* 

1130 PLOT19,2,STRt(CT)♦“ ":PLOT30,2,S 
TR*(SC) 

1140 TR=TR+7 

1150 VAIT30:PLAY2,2,3,1500 
1160 IFCT=0ANDDCT=0THENPT t PT+l:PLAY0, 
0,0,0:GOTO260 
1170 RETURN 

1180 DCT=DCT+2:GOSUB1310 :PLOTXH+3,YH+ 
5,MH :GOSUB1310 :PLOTXH+3,YH+5,HH 
1190 CH=0:PL0T4,1,C* 

1200 PLOT19,2,STR*(DCT)♦■ ’ 

1210 RETURN 
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1220 IFA>114THENDCT=DCT-1 
1230 PLAY1,4,1,1500 
1240 L=L+6:SC=SC+100 : PLOT 19.2,STR»(DC 
T)*" " 

1250 TR=TR+6 
1260 CH=0:PL0T4,I,C* 

1270 PL0T30,2,STR*(SC > 

1280 WAIT35:PLAY2,2,3,1500 
1290 RETURN 

1300 REH m MULTIPLICATIONS ttt 
1310 XH=INT(RND(l)*33)+l:YH=IHT(RND(l 

)I20)+1 

1320 IFSCRNt XH+3,YH+5)<> 32THEN1310 
1330 RETURN 

134C REH ♦♦♦♦ TABLEAU I ♦♦♦♦ 

1350 F4=*,|kkkkkkkkkkkkkkkkkkkkkkkl *:G 
t:“pooOOOOOOOOOOOOOOOOOOOOOn“ 

1360 Hi=*q)rrrrrrrrrrrrrrrrrrrrr}a“ 

1370 PLOT8,14,FI:PLOT8,15,HI: PLOT8,16 
.G* 

1380 RETURN 

139C REH.TABLEAU II- 

1400 Fi=*jkkkkkkkkkkkkkkkkkkkkkkkkl'1 
Gl-’poooooooooooooooooooooooon" 

1410 H4-*q)rrrrrrrrrrrrrrrrrrrrrr)a" 
1420 PLOT7,8,Ft:PL0T7,9,G * :PLOT7,14,F 
$ :PLOT7,15,H>:PLOT7,là,Gi 
1430 PLOT7. 21,Fl :PLOT7,22,Gl 
1440 RETURN 

1450 REH A/\ TABLEAU III /\/\ 

1460 Fl=*jkkkkkkkkkk kkkkkkkkkl* 

1470 G4=*poooooooooo ooooooooon* 

1480 HI-*pooooooooooooon* 

1490 Il=*jkkkkkkkkkkkkkl* 

1500 PLOT8,8,F*: PLOT12,12,1(: PLOT12,1 
8,H4:PLOT8,22,GI 

1510 PLOT12,13,113:PLOT12,14.113:PLOT 
12,16,1131PLOT12,17,113 
1520 PLOT26,13,109:PLOT26,14.109: PLOT 
26,16,109:PLOT26,17,109 
1530 F0RA=9T021 : PLOT8, A, 113 : PL0T30, A, 

109 :NEXT 
1540 RETURN 

1550 REH **" TABLEAU IV **•• 

1560 Fl=*ooooon*:G4=*pooooo*:HI='kkkk 
kl’: I<=“jkkkkk* 

1570 PLOT3,10,F4:PLOT8,5,109:PLOT8,6, 

109 :PL0T8,9,109 

1580 PLOT31,10,G<:PLOT31,5,113:PLOT31 
,6,113:PLOT31,9,113 
1590 PLOT3,20,H4:PL0T8,21,109:PlOT8,2 
4,109:PLOTS,25,109 

1600 PLOT31,20,1$:PLOT31,21,113:PLOT3 
1,24,113:PLOT31,25,113 
1610 RETURN 

1620 REH XXXX TABLEAU V XXXX 
1630 A$="jkkkkl jkkkl jkkkkl* 
1640 Bt='poooooooooo oooooooooon" 


1650 Cl^poooon poooon' 

1660 PLOTS.9,A$ 

1670 FORA=10TOI2:PLOT13,A,"*’:PLOT18, 
A,"q*:PLOT22,A.:PLOT27.A,"o*:NEXT 
1680 PLOT13.13.CI 

1690 FORA-10TO14:PLOT8, A, * q * :PLOT32,A 
,V:NEXT 

1700 FORA=16T020.PLOT8, A, * q * :PLOT32,A 
,*«‘:KEXT 
1710 PLOTS,21,6$ 

1720 RETURN 

1730 REH ttt INSTRUCTIONS ttt 
1740 CLS: CALLIF8D0 : POKE48036,0 : PR1NTC 
HR»(6) 

1750 AI=*Vous etes une très gouraande 

■ 

1760 8l=*petite chenille qui,dévorant 

II 

1770 CI=*tout sur son passage grandit 

M 

1780 Dl=*a vue d'oeil .* 

1790 E*="Toutefois celle ci doit pren 
dre" 

1800 F4=“garde a ce que sa bouliaie n 
e‘ 

1810 Gl=*l'amené pas a se devorer ell 
e* 

1820 Hl=’aeae .* 

1830 PRINTCHRM147) : PR INTCHRS ( 14 7 ) : PO 
KE48117,148:POKE48157,149 
1840 PRINT@10,1‘CHRS(138)♦* Miss Cat 
erpi 11 " 

1850 PRINT01O,2;CHRI(138)+* Hiss Cat 
erpi11* 

1860 PL0T6,5,A»:PLOT6,7,Bl:PLOT6.9,Cl 
: PL0T6,11 ,D$ : PLOT6,13 ,Et : PL0T6,15 ,F$ 
1870 PL0T6,17,Gi:PLOT6,19,H* 

1880 VAIT1000 

1890 FORI=5T019STEP2: FORJ=6T036: PLÛTJ 
,1,127:PLAYO,1,7,200:PLAYO,0,0,0 :¥AIT2 
1900 PLOT J,1,32 
1910 NEXT J :NEXTI 
1920 WAIT50 

1930 AI=*Pour vos deplaceaents utilis 
ez* 

1940 Bl=*les curseurs .* 

1950 C*="Si le teaps qui vous est lap 
arti ' 

I960 Dl=*s'est écoulé,les aliaents* 
1970 El=*augaentent de deux ainsi que 

■ 

1980 FI=*C.T(Changeaent de Tableau) . 

■ 

1990 GI=*C.T diainue de un lorsque vo 
us* 

2000 Hl=*aangez un aliaent .* 

2010 I$=*Pour entrer dans une nouvel! 


2C2C Jl-*phase,il faut que celui ci s 
oit* 

2030 Kl=’a zéro’ 

2040 PLOT6.5,A*:PL0T6,7,B$:PLOT6,9,C* 
:PLOT6,11,DI.PL0T6,13,EI:PLOTô,15.FI 
2050 PL0T6,17.G»:PL0T6,19,H»:PLOTe,21 
,I * :PL0T6,23,J<:PLOT6.25.K$ 

2060 VAIT1000 

2070 FORI - 5T025STEP2.FOR J=6T037: PLOT J 
,I,127:PLAY0,1,7,200:PLAYO.0,0.0:BAIT2 
2C80 PLOTJ,I,32 
2090 NEXTJ:NEXTI 

2100 PRINTBlO.l'CHRI(138)+* Bonne C 
hance 

2110 PRINTP10.2:CHRI(138)+" Bonne C 
hance ' 

2120 WAIT200 
2130 RUN 

2140 REH tttttt PRESENTATION tttttt 
2150 CLS:PRINT:A=0:INKO 
2160 PRINT:PRINT:PRINT:PRINT:PRINT 
2170 POKE4S159.148:POKE48199,148:POKE 
48239,148:POKE48279,148 
2180 Al^’kkkkkkkkkkkkkkkkkkkkkkkkkkkk 
kkkkkkkkkl* 

21 ?0 84="oooooooooooooooooooooooooooo 
ooooooooon" 

2200 PL0T2,1,Al.PLOT2,6,Bl 
2210 POKE48081,106 :POKE48281,112 
2220 REPEAT A-A+40:POKE48Û81+A,113 : PO 
KE48119+A,109 :UNTILA=160 
2230 PRINT:PRINT:PRINT:PRINT 


2250 PRINT" 
NS \PRINT 
2260 PRINT* 
:PRINT 
2270 PRINT* 
ni* 

2280 PRINT* 
i* 

2290 PRINT" 


( 1 ) 

( 2 ) 


JEU":PRINT 
1NSTRUCTI0 


(3) : FIN * : PRI NT 


iid ( hiiiiiiiii 


2300 PRINT* 


11111111111111111 


2310 PRINT:PRINT:PRINT" ECRIT 

PAR P.H. DIDIER* 

2320 PRINT:PRINT* 1985 

■+CHRK96) 

2330 PRINTB12,3;CHRI(138)+*HISS CATER 
PILL* 

2340 PRINTB12,4'CHRI(138)+*HISS CATER 
PILL* 

2350 GETAI 

2360 IFA*="1 * THENCLS: GOTO160 
2370 IFA*=“2*THEN1730 
2380 IFA*=*3*THEN2390ELSE2350 
2390 DOKEtlB,tF88F# 
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>FT BUFFER 


Yves SURREL 


S 


i vous êtes de ceux qui trépignent d'impatience devant 
leur imprimante débitant un listing à son allure de séna¬ 
teur, il vous faut un tampon d'imprimante ! 

Mais si vous hésitez à Investir dans un coûteux "spooler" à 
brancher entre votre micro et son imprimante, alors demandez 
à votre ATMOS de faire un petit effort en multitâche : il ne 
vous en coûtera pas un sou ! 


I 


LISTING 


V 


Ce programme en macro¬ 
assembleur FIG-FORTH est directe¬ 
ment inspiré de celui de Thierry 
LEGAL, paru dans le n° 21 de 
THEORIC. Son avantage est de 
pouvoir être également implanté 
surORIC-1. 

Rappelons brièvement son prin¬ 
cipe : plutôt que de laisser l'ORIC à 
ne rien faire et attendre que l'impri¬ 
mante soit prête à imprimer un nou¬ 
veau caractère, tout caractère à im¬ 
primer est empilé dans une zone 
mémoire tampon. Une nouvelle 
gestion des interruptions du micro¬ 
processeur examine l'état de rem¬ 
plissage du tampon et se charge de 
vider celui-ci vers l'imprimante selon 
sa disponibilité. Le reste du temps 
est à vous, si bien que vous avez la 
grisante impression que votre micro 
fait deux choses à la fois ! 

Comme d'habitude, en assembleur 
FORTH, nous définissons d'abord 
des macrocommandes d'assembla¬ 
ge. Dans le premier écran, nous 
retrouvons les macros 16 bits du 
n°14 de THEORIC auxquelles s'a¬ 
joutent : 

CMPPTR, comparant deux poin¬ 
teurs 16 bits de la page zéro don¬ 
nés par X et Y. 

INCPTR, incrémentant un tel poin¬ 
teur donné parX. 

INITPTR, initialisant un même poin¬ 
teur 16 bits avec une valeur immé¬ 
diate. 

Ces pointeurs et les registres de tra¬ 
vail sont définis dans le deuxième 
écran. Leurs noms sont ceux propo 


SCRNM i 

< H) ( Ml If (K R PUUR IMPRIMANIF 1/4 Y 

( I ) ( I macro*-. ) 

< 2) ASSEMBLER DEFINI!IUNS HEX 


( 

3) 

NLXI . 

NLXI 1MP, 





< 

4) 

EMPILE 

. PHA. 

TXA , 

PHA . 

IYA. 

PHA. 


( 

b) 

DI PII F 

. PL A, 

1 AK . 

MA, 

IAX, 

PI A. 


( 

F,) 

Ml DAY. 

DUP M 

1 DA, 

IIUI / 

Il 1 

)Y . ; 


( 

7) 

STAY, 

DUP STA 

, 1 + 

STY. 




( 

B) 

LDAY, 

DUP LDA 

. 1 + 

IDY. 




( 

9) 

STXY. 

DUP STX 

. 1 + 

SIY, 




( 

10) 

1 DXY . 

DUP 1 DX 

. 1 + 

IDY . 




( 

1 1 ) 

CMPPTR 

. 1 .X 

LDA, 

1 .Y 

CMP, 

0 IF. 


( 

12) 


0 ,X 

LDA. 

0 .Y 

CMP. 

1 ND 1 F. 


( 

13) 

INCPTX 

. « ,x 

INC, 

0- Il 

, 1 

,X INC. 

1 ND 1 F, 

( 

14) 

INITPTX, DUP 

M IDA, 0 

X STA, 100 

/ M LDA, 

( 

lb> - 

>• 
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i ,X STA, ; 


) 


LISTING 


V 


SCRNM 2 

< 0) < BUFFER PUUR IMPRIMANTE 2/4 ) 

< 1) ( ? - pointeurs page zéro ) 

( 2) 20 FOU ZVIDE 21 FUI) ZPRET 22 EUU Z IN 

( 3) 24 EUU /OUI 26 EUU ZHAS 2B LOU /HAUT 

( 4) ( 3 - adresses du tampon ) 

( b) 6/00 LOU BAS 7/00 LOU IIAUI 
(6) < 4 - vecteurs système ) 

( /> 24S EUU IRO < 229 sur l)K 10 1 ) 

< B) IRO 0 LOU STO-IRU ( traitement standard dos IRQ ) 

< 9) 23F LOU PRTCIIR < vecteur Impression d'un caractère ) 

(10) FURIH ÜEFINillUNS ASSLMÜILR 

( 11 ) —> 

(12) si vous utilisez le LM11 de PRINIER paru dans IIIEORIC n. 8 et 

(13) que celui-ci n'est pas vectorise en page ? ( cas de I' 0R1C-1 ) 

(14) remplacez la ligne 9 par : 

(15) PRINTLR ' (MIT b ♦ EUU F'RICllR# 


LISTING 


’V 


SCRNM 3 

( 0) ( BUFFER PUUR I MI'RIMANTI 3/4 ) 

( 1) ( b - gestion du sott-buller et des IRO ) 

( 2) HERE SEI , 2A SIXY, 0 M IDY, /IN )Y STA, /IN tt LDX, 1NCPIX, 

( 3) /HAUI M IDY, CMPPIR. 0^ 1F, BAS INIIPIX, LNDIF, /VIDE LDA, 

( 4) 0 II , /PRL I INC. LNDII , /VIOL SIY, /OUI II LDY, CMPPIR, 0= 

(5) 1F, ULG1N, 30U LDA, 2 M AND, 0= UNI IL. LNDIF, 2A LDXY, 

(6) CL 1, RIS, LOU DLUUI 
( 7) 


18 
























< 8) HERE PHA, ZPRLI LUA. 0= NUI 1E, LAUEt NV EMPILE, 0 H LUY, Z0U1 
( 9) )Y LUA, 301 S TA, 300 IDA, EF # ANU, 300 SIA, 10 » ORA, 300 

<I0> SIA, ZPRLI S1Y, ZUUI li LUX, INCPIX, ZIIAUI K LUY, 

(11) CMPPIR, 0= IF, 0AS 1N1IPIX, ENUIF, ZIN » LUY, 

(12) CMPPIR, 0^ IF, 0 II LUA, ZVIUL SIA, ENUIF, 82 » LUA, 30E 

(13) SIA, UEP1LL, LAUEL NN PIA, S1U-1RU JMP, ENUIF, 30Ü LUA, 

(14) 2 « ANU, FIN HLU, 301 LUA, ZVIUL LUA, I IN UEÜ, NV JMP, 

(15) EQU INIER -->• 


LISTING 


SCRN# 4 

( 0) ( UUFFER POUR IMPRIMANTr 4/4 ) 

( 1) ( S - initialisa lion du but lui ) 

( 2) HERE UAS IILUAY. ZIN SIAY, ZUUI SIAY, 0 H LUA. ZV1UE SIA, ZPREI 
( 3) SIA. RIS, LUU (INI I) 

( 4) 

( 5) ( / - mut*» utilisateur ) 

( S) CUUE INI T (-) 

( 7) XSAVE srx, SEI, UIIIUI IILDAY, PRICIIR SIAY, 

( 8) (NIER «LUAY, IRU SIAY, (INIT) JSR, CLI, XSAVE LUX, 

( 9) NEX1, ;C 

(10) 

(11) CUUE SIUP (-) 

(12) XSAVE SIX, SEI. (INIT) JSR, CLI. XSAVE LUX. NEX1, ;C 

(13) 

(14) ÜECIMAI ;S 

(15) # 



sés déjà par Thierry LEGAL, avec 
quelques adresses différentes 
pour notre FORTH. Ainsi, le tam¬ 
pon occupera quatre kilo-octets au 


sommet de la zone libre du diction¬ 
naire. 

Viennent ensuite les adresses stra¬ 
tégiques des vecteurs propres au 


système : le traitement des interrup¬ 
tions et le vecteur en RAM de l’im¬ 
pression d'un caractère. Sur 
ORIC-1, qui n’a pas de vecteur en 
page 2, il faut remonter dans le 
FORTH lui-même. Ceci peut être re¬ 
quis aussi pour l’ATMOS si la primi¬ 
tive d’imprimante court-circuite la pa¬ 
ge 2. Le plus simple est alors de 
prendre notre vecteur d’impression 
dans le mot EMIT du vocabulaire 
PRINTER (voir THEORIC n° 8). 

Le Buffer fonctionne avec les deux 
routines de l'écran 3 : 

DEBUT est la nouvelle routine 
d'impression d'un caractère : on le 
place dans la file d’attente. 

INTER est la nouvelle gestion des 
interruptions qui règle le débit de 
cette file avant le traitement habi¬ 
tuel des IRQ. 

Dans l’écran 4, après (INIT) qui ini¬ 
tialise les valeurs du tampon, nous 
définissons les deux mots d'utilisa¬ 
tion : 

INIT ( — ) qui installe une fois 
pour toute le soft-buffer. 

STOP (—) qui permet d'arrêter 
en cours une impression bufférisée 
inopportune sans avoir à toucher 
au bouton RESETB 


ïfERIUST 


Ce court programme sert à vérifier les listings publiés dans THEORIC, dans lesquels apparaissent un nombre entre 
parenthèses, derrière le n° de ligne. Chargez-le à chaque fois que vous voudrez vérifier un listing ! 


Mode d'emploi 


— Taper VERILIST, le sauvegarder, 
faire RUN puis 

— CSAVE "VERILIST”,A# B300, 
E#B3E6 (il utilise l'espace HIRES, 
donc rester impérativement en mode 
TEXT tant qu'il sera en mémoire...) ; 

— Le listing du programme BASIC 
à vérifier étant en mémoire, taper 
CALL0B3O6 : les lignes apparais¬ 
sent à l'écran suivies de la somme 
de contrôle. Si vous possédez une 
imprimante, tapez CALL# B300 pour 
obtenir le listing. Comparez avec le 
listing publié dans THEORIC. 
ATTENTION ! Lorsque vous effec¬ 
tuez la saisie d'un listing de THEO¬ 
RIC, ne tapez surtout pas les nom¬ 
bres entre parenthèses situés der¬ 
rière les numéros de lignes. 


< 

% 

P 

$3 


IC A=IB300:F=«B3E6:L=100 :REPEAT: FOR A=A TO A+15 :READ Cf 
20 K=VALC»-+C«) :S=S+K^65536*(S+K>65535) : IF A<=F THEN POKE A,K 
30 NEXT:READ D«: IF S=VALCr*M) THEN L=L*5:UNTIL A>F:END 
40 PING:PRiNT‘Erreur ligneVL 

100 DATA 20,16,C8,4E,F2,02,20,E8,00,20,E2,CA,20,B3,C6,EA,0797 
105 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,A9,FF,160B 
110 DATA 85,33,85,34,A0,01,B1,CE,F0,56,20,62,C9,C9,20,D0,1DE6 
115 DATA 0E,4E,DF,02,AD,DF,02,10,FBJ20,62,C9,4E,DF,02,C8,24FE 
120 DATA B1,CE,AA,C8,B1,CE,C5,34,D0,04,E4,33,F0,02,B0,30,2E24 
125 DATA 84,B8,48,20,F0,CB,68,20,C5,E0,8A,48,20,CO,B3,68,367D 
130 DATA AA,EA.EA,A9,20,A4,B8,29,7F,20,D9,CC,C8,F0,Il,B1,4007 
135 DATA CE,DO,1J,A8,B1,CE,AA,C8,B1,CE,86,CE,85,CF,DO,A4,4AF7 
140 DATA 2C,F2,02,10,01,60,20,F0,CB,20,2F,C8,68,68,4C,A8,513E 
145 DATA C4,10,D6,38,E9,7F,AA,84,B8,A0,00,A9,E9,85,18,A9,59E6 
150 DATA C0.85,19,CA,F0,0D,E6,18,D0,02,E6,19,B1,18,10.F6.61A9 
155 DATA 4C,A3,B3,C8,B1,18,30,AD,20,D9,CC,4C,B3,B3,04,EA,6A1E 
160 DATA A9,20,20,D9,CC,A9,28,20,D9,CC,A0,03,A2,00,8A,51,7162 
165 DATA CE,8C,BE,B3,18,6D,BE,B3,C8,AA,B1,CE,D0,F0,20,C5,7BB9 
170 DATA E0,A9,29,20,D9,CC,60,00,00,00,00,00,00,00,00,00,7F90 
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! TRAME 


(1ère partie) 




moyen d'un motif défini 
par l'utilisateur n'est plus 
réservé aux seuls "gros" 
type Mac Intosh. L'ORIC 
dispose désormais de 
cette instruction qui 
devrait ravir les passion¬ 
nés de dessin. 



L'instruction ! TRAME X, Y, NT, 
ADB permet de remplir uh polygone 
quelconque, à partir du point d'abs¬ 
cisse X et d'ordonnée Y. Le numéro 
de la trame utilisée pour le remplis¬ 
sage, NT sera tel que 0^ NT ^ 255. 
Cette trame est implantée à 
l'adresse ADB + (8*NT). Une trame 
est codée sur 8 octets. 

A titre d'exemple, pour vérifier que 
la routine fonctionne et avant de 
définir vos propres trames, vous 
pourrez essayer le petit programme 
suivant. On peut utiliser le jeu de 
caractères comme trame... Marrant, 
non ? 

1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 P=PEEK («26A) ANDIFE0R8 : POKE426A, P 
9 GQT07000 


10 DATA A9.28 ' 

:LDA «428 

20 DATA 8D,F5,02' 

ISTA 402F5 

30 DATA A9.97 ' 

:LDA 1497 

40 DATA 8D.FM2' 

ISTA 402F6 

50 DATA 60 

IRTS 

60 DATA AE,19,02'TRAME 

'LDX 40219 

70 DATA AC,1A,02' 

1LDY 4021A 

80 DATA 20,49,F0' 

1JSR 4F049 

90 DATA 20,E9,F1' 

1JSR 4F1E9 


100 

DATA 

F0,01 ' 

IBEQ 

Cl 

110 

DATA 

60 

IRTS 


120 

DATA 

A0,00 'Cl 

1 LDY 

«400 

130 

DATA 

B1.10 ' 

1 LDA 

(410),Y 

140 

DATA 

29,7F ' 

1 AND 

«47F 

150 

DATA 

C9,40 ' 

1 CMP 

«440 

160 

DATA 

B0,01 ' 

IBCS 

C2 

170 

DATA 

60 

IRTS 


180 

DATA 

84,04 'C2 

ISTY 

PP 

190 

DATA 

84,05 ' 

ISTY 

FT1 

200 

DATA 

AD,19,02' 

1 LDA 

40219 

210 

DATA 

20,0B,96' 

1 JSR 

EMPIL 

220 

DATA 

AD.1A.02' 

1 LDA 

4021A 

230 

DATA 

20,0B,96' 

1 JSR 

EMPIL 

240 

DATA 

A9,C8 ' 

1 LDA 

•4C8 

250 

DATA 

85,03 ' 

ISTA 

ANIVEA 

260 

DATA 

A5.04 'BOUCLE!LDA 

PP 

270 

DATA 

D0,01 ' 

IBNE 

C3 

280 

DATA 

60 

IRTS 


290 

DATA 

20,19,96'C3 

1 JSR 

DEPIL 

300 

DATA 

8D,IA,02' 

ISTA 

4021A 

310 

DATA 

48 

IPHA 


320 

DATA 

20,19,96' 

1 JSR 

DEPIL 

330 

DATA 

8D,19,02' 

ISTA 

40219 

340 

DATA 

48 

IPHA 


350 

DATA 

20,91,96' 

1 JSR 

AFFICH 

360 

DATA 

68 

IPLA 


370 

DATA 

8D,19,02' 

ISTA 

40219 

380 

DATA 

68 

IPLA 


390 

DATA 

8D,1A,02' 

ISTA 

4021A 

400 

DATA 

A9,00 ' 

1 LDA 

«400 

410 

DATA 

85,0B ' 

ISTA 

NE 


420 

DATA 

85,06 ' 

ISTA 

FT2 

430 

DATA 

20,D8,95' 

1 JSR 

ROUT1 

440 

DATA 

AD,1A,02' 

1 LDA 

402 IA 

450 

DATA 

F0,25 ' 

IBEQ 

C5 

460 

DATA 

85,02 ' 

ISTA 

NIVEAU 

470 

DATA 

C6,02 ' 

IDEC 

NIVEAU 

480 

DATA 

A5,03 ' 

1 LDA 

ANIVEA 

490 

DATA 

C9,C8 ' 

1 CMP 

«4C8 

500 

DATA 

F0,07 ' 

IBEQ 

C4 

510 

DATA 

C5,02 ' 

ICMP 

NIVEAU 

520 

DATA 

D0,03 ' 

IBNE 

C4 

530 

DATA 

20,EB,95' 

1 JSR 

ROUT2 

540 

DATA 

20,D6,93'C4 

1 JSR 

ALGOl 

550 

DATA 

20,45,95' 

1 JSR 

PVOIR 

560 

DATA 

A9.00 ' 

1 LDA 

«400 

570 

DATA 

85,06 ' 

ISTA 

FT2 

580 

DATA 

20,D8,95' 

1 JSR 

ROUT1 

590 

DATA 

AD,1A,02' 

1 LDA 

4021A 

600 

DATA 

C9,C7 ' 

ICMP 

«4C7 

610 

DATA 

F0,17 ' 

IBEQ 

BILAN 

620 

DATA 

85,02 'C5 

ISTA 

NIVEAU 

630 

DATA 

E6,02 ' 

1 INC 

NIVEAU 

640 

DATA 

A5,03 ' 

1 LDA 

ANIVEA 

650 

DATA 

C9,C8 ' 

ICMP 

«4C8 

660 

DATA 

F0,07 ' 

IBEQ 

C6 

670 

DATA 

C5,02 ' 

ICMP 

NIVEAU 

680 

DATA 

D0,03 ' 

IBNE 

C& 

690 

DATA 

20,EB,95' 

1 JSR 

ROUT2 

700 

DATA 

20,D6,93'C6 

1 JSR 

ALGOl 

710 

DATA 

20,45,95' 

1 JSR 

PVOIR 

720 

DATA 

A6,0B 'BILAN 

1 LDX 

NE 

730 

DATA 

D0,07 ' 

IBNE 

C7 


!TRAMEX,Y,NT,ADB 


ATM0S/0RIC1 
RIVES JEAN-MARC 
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740 DATA A9,C8 ' 

:lda «tes 

1340 

DATA 

E4,05 ' 

ICPX 

FTl 

1940 

DATA 

CA 

:dex 


750 DATA 85,03 ' 

ISTA ANIVEA 

1350 

DATA 

90,Fl ' 

:bcc 

El 

1950 

DATA 

86,06 ' 

:stx 

FT2 

760 DATA 4C,2E,93' 

:J«P BOUCLE 

1360 

DATA 

60 

:rts 


1960 

DATA 

C6,09 ' 

.DEC 

XREPR2 

770 DATA CA 'C7 

:dex 

1370 

DATA 

86,08 'E2 

:stx 

XREPR1 

1970 

DATA 

C6,09 ' 

:dec 

XREPR2 

780 DATA FO,1E ' 

:beq es 

1380 

DATA 

CA 

:dex 


1980 

DATA 

60 'E7 

:rts 


790 DATA A4,05 ' 

:ldy FTl 

1390 

DATA 

CA 

:dex 


1990 

DATA 

AD,EC,BF'INTERS!LDA 

A2 

800 DATA AD,El,BF' 

:lda xd 

1400 

DATA 

BD,00,91' 

:lda 

TABLEl,X 

2000 

DATA 

CD,EA,BF' 

:chp 

Al 

810 DATA 99,00,91' 

:STA TABLEl,Y 

1410 

DATA 

8D,EA,BF' 

:sta 

Al 

2010 

DATA 

B0.09 ' 

:bcs 

Fl 

820 DATA C8 

: iny 

1420 

DATA 

CA 

:dex 


2020 

DATA 

AD,ED,BF' 

:lda 

B2 

830 DATA AD,E2,BF' 

:lda xg 

1430 

DATA 

BD,00,91' 

:lda 

TABLEl,X 

2030 

DATA 

CD.EA.BF' 

:chp 

Al 

840 DATA 99,00,91' 

:STA TABLEl,Y 

1440 

DATA 

8D,EB,BF' 

:sta 

B1 

2040 

DATA 

BO.OC ' 

:bcs 

SEGNEN 

850 DATA C8 

: iny 

1450 

DATA 

18 

:clc 


2050 

DATA 

60 

:rts 


860 DATA 8A 

:txa 

1460 

DATA 

60 

:rts 


2060 

DATA 

FO,09 'Fl 

:beq 

SEGHEN 

870 DATA 99,00,91' 

:STA TABLEl,Y 

1470 

DATA 

A4,08 'SUPI 

:ldy 

XREPR1 

2070 

DATA 

AD,EB,BF' 

:lda 

B1 

880 DATA C8 

: imy 

1480 

DATA 

88 

:dey 


2080 

DATA 

CD,EC,BF' 

:chp 

A2 

890 DATA AD,1A,02' 

:lda <021a 

1490 

DATA 

88 

:dey 


2090 

DATA 

BO ,01 ' 

:bcs 

SEGNEN 

900 DATA 99,00,91' 

:STA TABLEl,Y 

1500 

DATA 

88 

:dey 


2100 

DATA 

60 

:rts 


910 DATA C8 

: imy 

1510 

DATA 

66,08 ' 

:ldx 

XREPR1 

2110 

DATA 

ad,ec,bf'seghen:lda 

A2 

920 DATA 84,05 ' 

:STY FTl 

1520 

DATA 

E8 'E3 

: inx 


2120 

DATA 

CD.EA.BF' 

xhp 

Al 

930 DATA AD,1A,02'C8 

:LDA I021A 

1530 

DATA 

E4 ,05 ' 

ICPX 

FTl 

2130 

DATA 

BO,15 ' 

:bcs 

F3 

940 DATA 85,03 ' 

:STA ANIVEA 

1540 

DATA 

FO,09 ' 

:beq 

E4 

2140 

DATA 

AD,EA,BF' 

:lda 

Al 

950 DATA AD,El ,8F' 

:lda xd 

1550 

DATA 

BD,00,91' 

:lda 

TABLEl,X 

2150 

DATA 

85,07 ' 

:sta 

ELESUP 

960 DATA 8D,EF,BF' 

:STA AXD 

1560 

DATA 

99,00,91' 

:sta 

TABLEl,Y 

2160 

DATA 

AD,EB,BF' 

:lda 

B1 

970 DATA AD,E2,BF' 

LDA XG 

1570 

DATA 

C8 

: iny 


2170 

DATA 

CD.ED.BF' 

:cnp 

B2 

980 DATA 8D,EE,BF' 

:STA AXG 

1580 

DATA 

D0.F2 ' 

:bne 

E3 

2180 

DATA 

BO, 03 ' 

:bcs 

F2 

990 DATA 4C,2E,93' 

:JNP BOUCLE 

1590 

DATA 

CA 'E4 

:dex 


2190 

DATA 

20,D5,94' 

: jsr 

RB1B2 

1000 DATA A9,00 'ALGOl 

:lda hoo 

1600 

DATA 

CA 

:dex 


2200 

DATA 

20,EB,94'F2 

: jsr 

RA2A1 

1010 DATA 85,09 ' 

:STA XREPR2 

1610 

DATA 

CA 

:dex 


2210 

DATA 

38 

:sec 


1020 DATA A9.FF ' 

:lda «FF 

1620 

DATA 

CA 

:dex 


2220 

DATA 

60 

:rts 


1030 DATA 85,08 ' 

ISTA XREPR1 

1630 

DATA 

86,05 ' 

:stx 

FTl 

2230 

DATA 

85,07 'F3 

:sta 

ELESUP 

1040 DATA AA 

:tax 

1640 

DATA 

C6,08 ' 

:dec 

XREPR1 

2240 

DATA 

AD,EB,BF' 

:lda 

B1 

1050 DATA 20,16,94'DI 

: JSR CHERCH 

1650 

DATA 

C6,08 ' 

:dec 

XREPR1 

2250 

DATA 

CD,ED,BF' 

:cnp 

B2 

1060 DATA B0.2A ' 

:bcs D4 

1660 

DATA 

C6.08 ' 

:dec 

XREPR1 

2260 

DATA 

BO,04 ' 

:bcs 

F4 

1070 DATA A6.09 'D2 

:LDX XREPR2 

1670 

DATA 

C6,08 ' 

:dec 

XREPRl 

2270 

DATA 

20.D5.94' 

: jsr 

RB1B2 

1080 DATA 20,56,94' 

: JSR EXTRAC 

1680 

DATA 

60 

:rts 


2280 

DATA 

38 

:sec 


1090 DATA 90,08 ' 

:bcc D3 

1690 

DATA 

E4,06 'EXTRACICPX 

FT2 

2290 

DATA 

60 'F4 

:rts 


1100 DATA A6,08 ' 

:ldx XREPR1 

1700 

DATA 

90,01 ' 

:bcc 

E8 

2300 

DATA 

A6,06 'RB1B2 

:ldx 

FT2 

1110 DATA A9.00 ' 

:lda «oo 

1710 

DATA 

60 

:rts 


2310 

DATA 

AD,ED,BF' 

:lda 

B2 

1120 DATA 85,09 ' 

ISTA XREPR2 

1720 

DATA 

BD ,00,90' E8 

:lda 

TABLE2.X 

2320 

DATA 

90,00,90' 

:sta 

TABLE2.X 

1130 DATA FO,EC ' 

:beq di 

1730 

DATA 

8D.ED.BF' 

:sta 

B2 

2330 

DATA 

E8 

: inx 


1140 DATA 20,8D,94'D3 

:JSR INTERS 

1740 

DATA 

E8 

: inx 


2340 

DATA 

AD.EB.BF' 

:lda 

B1 

1150 DATA 90,EC ' 

:bcc D2 

1750 

DATA 

BD,00,90' 

:lda 

TABLE2.X 

2350 

DATA 

9D,00,90' 

:sta 

TABLE2.X 

1160 DATA 20,6C,94' 

: JSR SUP2 

1760 

DATA 

8D,EC,BF' 

:sta 

A2 

2360 

DATA 

FE.00,90' 

: inc 

TABLE2.X 

1170 DATA 20,01,95' 

: JSR SPILE 

1770 

DATA 

E8 

: inx 


2370 

DATA 

E8 

: inx 


1180 DATA B0.E4 ' 

:bcs D2 

1780 

DATA 

86,09 ' 

:stx 

XREPR2 

2380 

DATA 

86,06 ' 

:stx 

FT2 

1190 DATA A6,08 ' 

:ldx XREPR1 

1790 

DATA 

60 

:rts 


2390 

DATA 

60 

:rts 


1200 DATA CA 

:dex 

1800 

DATA 

A4,09 'SUP2 

:ldy 

XREPR2 

2400 

DATA 

A6.06 RA2A1 

:ldx 

FT2 

1210 DATA DE,00,91' 

:DEC TABLEl,X 

1810 

DATA 

FO, IC ' 

:beq 

E7 

2410 

DATA 

AD.EA.BF' 

:lda 

Al 

1220 DATA DO,DC ' 

:bne D2 

1820 

DATA 

A6.09 ' 

:ldx 

XREPR2 

2420 

DATA 

9D,00,90' 

:sta 

TABLE2.X 

1230 DATA 20,32,94' 

:jsr supi 

1830 

DATA 

C4.06 ' 

:cpy 

FT2 

2430 

DATA 

DE,00,90' 

:dec 

TABLE2.X 

1240 DATA 38 

:sec 

1840 

DATA 

FO,OE ' 

:beq 

E6 

2440 

DATA 

E8 

: inx 


1250 DATA B0,D6 ' 

:bcs D2 

1850 

DATA 

88 

:dey 


2450 

DATA 

AD.EC.BF' 

:lda 

A2 

1260 DATA 60 'D4 

:rts 

1860 

DATA 

88 

:dey 


2460 

DATA 

9D.00.90' 

:sta 

TABLE2.X 

1270 DATA BD,00,91'El 

:LDA TABLEl,X 

1870 

DATA 

BD,00,90'E5 

:lda 

TABLE2.X 

2470 

DATA 

E8 

:inx 


1280 DATA C5,02 ' 

:CNP NIVEAU 

1880 

DATA 

99,00,90' 

:sta 

TABLE2.Y 

2480 

DATA 

86,06 ' 

:stx 

FT2 

1290 DATA FO,09 ' 

:beo E2 

1890 

DATA 

C8 

: iny 


2490 

DATA 

60 

:rts 


1300 DATA E8 'CHERCH: INA 

1900 

DATA 

E8 

: inx 


2500 

DATA 

A5.04 'SPILE 

LDA 

PP 

1310 DATA E8 

:inx 

1910 

DATA 

E4.06 ' 

:cpx 

FT2 

2510 

DATA 

DO,02 ' 

:bne 

G1 

1320 DATA E8 

: inx 

1920 

DATA 

D0,F4 ' 

:bne 

E5 

2520 

DATA 

38 

:sec 


1330 DATA E8 

: inx 

1930 

DATA 

CA 'E6 

:dex 


2530 

DATA 

60 

:rts 
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2540 

DATA 

A2.01 'G1 

ildx 

*401 

3140 DATA A9,01 ' 

:lda «401 

3740 

DATA 

60 

.'RTS 


2550 

DATA 

BD,00,92'G2 

:lda 

P1LE.X 

3150 DATA 8D,EC,BF' 

iSTA A2 

3750 

DATA 

A9.00 'R0UT2 

ILDA 

*400 

2560 

DATA 

CD,1A,02' 

ichp 

♦ 021A 

3160 DATA AE,E4,BF' 

,'LDX 4BFE4 

3760 

DATA 

85,06 ' 

ISTA 

FT2 

2570 

DATA 

FO,07 ' 

:beq 

G4 

3170 DATA AO,00 'Il 

;ldy *400 

3770 

DATA 

AD,E2,BF' 

ILDA 

XG 

2580 

DATA 

E8 'G3 

iinx 


3180 DATA Bl,10 ' 

:lda (410),y 

3780 

DATA 

AE.El.BF' 

ILDX 

XD 

2590 

DATA 

E8 

: inx 


3190 DATA 29,7F ' 

: AND 147F 

3790 

DATA 

8D,EC,BF' 

ISTA 

A2 

2600 

DATA 

E4.04 ' 

:cpx 

PP 

3200 DATA 8D,ED,BF' 

:STA B2 

3800 

DATA 

8E,ED,BF' 

ISTX 

B2 

2610 

DATA 

90,F2 ' 

:bcc 

G2 

3210 DATA C9.40 ' 

:CNP 1440 

3810 

DATA 

AD.EE.BF' 

ILDA 

AXG 

2620 

DATA 

60 

:rts 


3220 DATA 90,48 ' 

:bcc 13 

3820 

DATA 

AE,EF,BF' 

ILDX 

AXD 

2630 

DATA 

CA 'G4 

:dex 


3230 DATA A0,ED,BF'I2 

:LDA 62 

3830 

DATA 

8D,EA,BF' 

ISTA 

Al 

2640 

DATA 

BD,00,92' 

:lda 

P1LE.X 

3240 DATA 2D,15,02' 

: AND 40215 

3840 

DATA 

8E,EB,BF' 

ISTX 

B1 

2650 

DATA 

C5,07 ' 

ichp 

ELESUP 

3250 DATA FO,07 ' 

:beq 14 

3850 

DATA 

20,A9,94' 

I JSR 

SEGHEN 

2660 

DATA 

FO,03 ' 

:beq 

G5 

3260 DATA A9,01 ' 

:lda »40i 

3860 

DATA 

60 

IRTS 


2670 

DATA 

E8 

: inx 


3270 DATA 8D,EC,BF' 

:sta A? 

3870 

DATA 

A6,04 'EHPIL 

ILDX 

PP 

2680 

DATA 

DO.EE ' 

:bne 

G3 

3280 DATA DO,1F ' 

:bne 15 

3880 

DATA 

EO,FE ' 

ICPX 

»*FE 

2690 

DATA 

8A 'G5 

:txa 


3290 DATA AD,EC,BF'14 

:lda A2 

3890 

DATA 

90,01 ' 

: bcc 

J1 

2700 

DATA 

E8 

: inx 


3300 DATA F0,1A ' 

:beq 15 

3900 

DATA 

60 

IRTS 


2710 

DATA 

E8 

: inx 


3310 DATA 8A 

:txa 

3910 

DATA 

90,00,92'J1 

ISTA 

PILE.X 

2720 

DATA 

E4.04 ' 

:cpx 

PP 

3320 DATA 48 

:pha 

3920 

DATA 

E8 

I INX 


2730 

DATA 

DO,05 ' 

:bme 

G6 

3330 DATA 20,08,96' 

:JSR EHPIL 

3930 

DATA 

86,04 ' 

ISTX 

PP 

2740 

DATA 

AA 

:tax 


3340 DATA 90,07 ' 

:bcc 18 

3940 

DATA 

60 

IRTS 


2750 

DATA 

86,04 ' 

:stx 

PP 

3350 DATA 68 

:pla 

3950 

DATA 

A6,04 'DEPIL 

ILDX 

PP 

2760 

DATA 

18 

;clc 


3360 DATA 68 

:pla 

3960 

DATA 

CA 

IDEX 


2770 

DATA 

60 

:rts 


3370 DATA 68 

:pla 

3970 

DATA 

BD,00,92' 

ILDA 

PILE.X 

2780 

DATA 

AA 'G6 

:tax 


3380 DATA 68 

:pla 

3980 

DATA 

86,04 ' 

ISTX 

PP 

2790 

DATA 

A8 

;tay 


3390 DATA 68 

;pla 

3990 

DATA 

60 

IRTS 


? 800 

DATA 

C8 

: ihy 


3400 DATA 68 

:pla 

4000 

DATA 

AO,00 'DROI TEILDY 

•400 

2810 

DATA 

C8 

iiny 


3410 DATA 60 

:rts 

4010 

DATA 

A2,F0 ' 

ILDX 

«4F0 

2820 

DATA 

B9,00,92'G7 

:lda 

PILE,Y 

3420 DATA A5,02 '18 

:lda niveau 

4020 

DATA 

EE,19,02'K1 

I INC 

40219 

2830 

DATA 

9D,00,92' 

:sta 

PIIE,X 

3430 DATA 20,0B,96' 

:JSR EHPIL 

4030 

DATA 

EC,19,02' 

ICPX 

40219 

2840 

DATA 

E8 

: inx 


3440 DATA CE.EC.BF' 

:dec A2 

4040 

DATA 

FO,OC ' 

IBEQ 

K3 

2850 

DATA 

C8 

: iny 


3450 DATA 68 

:pla 

4050 

DATA 

4E,15,02' 

ILSR 

40215 

2860 

DATA 

C4,04 ' 

:cpy 

PP 

3460 DATA AA 

:tax 

4060 

DATA 

BO.ll ' 

IBCS 

K4 

2870 

DATA 

D0,F4 • 

:bke 

G7 

3470 DATA E6,0B ' 

; INC NE 

4070 

DATA 

B1.10 'K2 

ILDA 

(410),Y 

2880 

DATA 

88 

:dey 


3480 DATA E8 '15 

: inx 

4080 

DATA 

2D,15,02' 

I AND 

40215 

2890 

DATA 

88 

:dey 


3490 DATA 4E,15,02' 

ILSR 40215 

4090 

DATA 

FO.EC ' 

I BEQ 

Kl 

2900 

DATA 

84,04 ' 

:sty 

PP 

3500 DATA 90,03 ' 

:bcc 16 

4100 

DATA 

CE,19,02'K3 

IDEC 

40219 

2910 

DA1A 

18 

:clc 


3510 DATA 20,A6,FO'19 

:JSR 4F0A6 

4110 

DATA 

AD,19,02' 

ILDA 

40219 

2920 

DATA 

60 

:rts 


3520 DATA EC,E3,BF'I6 

:CPX 4BFE3 

4120 

DATA 

8D.E1,BF' 

ISTA 

XD 

2930 

DATA 

A5,06 'PVOIR 

:lda 

FT2 

3530 DATA 90,03 ' 

:bcc 17 

4130 

DATA 

60 

IRTS 


2940 

DATA 

DO,01 ' 

:bne 

H! 

3540 DATA FO,01 ' 

:beq n 

4140 

DATA 

E6,10 ' K4 

I INC 

410 

2950 

DATA 

60 

:rts 


3550 DATA 60 

:rts 

4150 

DATA 

DO,02 ' 

IBNE 

K5 

2960 

DATA 

A2.00 'H1 

:ldx 

• 400 

3560 DATA AD,15,02'17 

:LDA 40215 

4160 

DATA 

E6,U ' 

I INC 

411 

2970 

DATA 

BD,00,90'H2 

:lda 

TABLE2.X 

3570 DATA C9.20 ' 

:CHP «420 

4170 

DATA 

B1.10 'K5 

ILDA 

(410),Y 

2980 

DATA 

8D,E3,BF' 

:sta 

4BFE3 

3580 DATA FO,AD ' 

:beq ii 

4180 

DATA 

29,40 ' 

I AND 

*440 

2990 

DATA 

E8 

: inx 


3590 DATA D0.B8 ' 

:bke 12 

4190 

DATA 

FO,EA ' 

IBEO 

K3 

3000 

DATA 

BD,00,90' 

:lda 

TABLE2.X 

3600 DATA E8 '13 

: inx 

4200 

DATA 

4A 

ILSR 


3010 

DATA 

8D,E4,BF' 

:sta 

4BFE4 

3610 DATA 4B,5,02' 

:LSR 40215 

4210 

DATA 

8D,15,02' 

ISTA 

40215 

3020 

DATA 

8A 

:txa 


3620 DATA 90,FA ' 

:bcc 13 

4220 

DATA 

DO,DD ' 

IBNE 

K2 

3030 

DATA 

48 

:pha 


3630 DATA A9,01 ' 

:iDA *401 

4230 

DATA 

A2.FF 'GAUCHEILDX 

*4FF 

3040 

DATA 

20,66,95' 

: jsr 

VOIR 

3640 DATA 8D,EC,BF' 

ISTA A2 

4240 

DATA 

AO,00 ' 

I LDY 

•400 

3050 

DATA 

68 

:pla 


3650 DATA DO,DF ' 

:bne 19 

4250 

DATA 

CE,19,02'K6 

DEC 

40219 

3060 

DATA 

AA 

:tax 


3660 DATA A2.00 'R0UT1 

:ldx *400 

4260 

DATA 

OE,15,02' 

ASL 

40215 

3070 

DATA 

E8 

: inx 


3670 DATA AD,El,BF' 

ILDA XD 

4270 

DATA 

EC,19,02' 

CPX 

40219 

3080 

DATA 

E4,06 ' 

:cpx 

FT2 

3680 DATA 9D,00,90' 

ISTA TABLE2,X 

4280 

DATA 

18 

.CLC 


3090 

DATA 

D0,E7 ' 

;bne 

H2 

3690 DATA E8 

: inx 

4290 

DATA 

FO,OC ' 

IBEO 

K8 

3100 

DATA 

60 

:rts 


3700 DATA AD.E2.BF' 

:lda xg 

4300 

DATA 

2C,15,02' 

I BIT 

40215 

3110 

DATA 

A4,02 'VOIR 

:ldy 

NIVEAU 

3710 DATA 9D,00,90' 

ISTA TABLE2.X 

4310 

DATA 

70,11 ' 

IBVS 

K9 

3120 

DATA 

AE.E4.BF' 

:ldx 

4BFE4 

3720 DATA E8 

: inx 

4320 

DATA 

B1.10 'K7 

ILDA 

(410),Y 

3130 

DATA 

20,49,FO' 

: jsr 

4F049 

3730 DATA 86,06 ' 

ISTX FT2 

4330 

DATA 

20,15,02' 

I AND 

40215 
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4340 

DATA 

F0.E8 ' 

:beq 

K6 

4940 DATA ED.E2.BF' 

:sbc 

XG 

5540 

DATA DO,OA ' 

:bne 

H4 

4350 

DATA 

EE,19,02'K8 

: inc 

«0219 

4950 DATA 8D,E1,02' 

:sta 

(02E1 

5550 

DATA 20,E2,0«'H3 

: jsr 

(00E2 

4360 

DATA 

AD,19,02' 

:lda 

«0219 

4960 DATA F0,0F ' 

:beq 

L7 

5560 

DATA 20.53.E8' 

: jsr 

(E853 

4370 

DATA 

8D,E2,ÇF' 

:sta 

XG 

4970 DATA A2,02 ' 

:ldx 

1(02 

5570 

DATA E6,00 ' 

:inc 

(00 

4380 

DATA 

60 

:rts 


4980 DATA A9,00 ' 

:lda 

1(00 

5580 

DATA E6.00 ' 

: inc 

(00 

4390 

DATA 

C6,10 'K9 

:dec 

«10 

4990 DATA 9D,EC,02'L6 

:sta 

(02E0.X 

5590 

DATA 20,E8,00'H4 

: jsr 

(00E8 

4400 

DATA 

E4,10 ' 

:cpx 

«10 

5000 DATA E8 

: inx 


5600 

DATA DO,A9 ' 

:bne 

SYNTAX 

4410 

DATA 

DO,02 ' 

BNE 

K10 

5010 DATA EO,07 ' 

:cpx 

1(07 

5610 

DATA AD,CO,02' 

:lda 

(02C0 

4420 

DATA 

C6,ll ' 

:dec 

(11 

5020 DATA D0,F8 ' 

:bne 

U 

5620 

DATA C9.03 ' 

:chp 

•(03 

4430 

DATA 

B1,10 'K10 

:lda 

((10),Y 

5030 DATA EE,E5,02' 

: inc 

(02E5 

5630 

DATA FO,03 ' 

:beq 

H5 

4440 

DATA 

29,40 ' 

:and 

1(40 

5040 DATA AD,13,02'L7 

:lda 

(0213 

5640 

DATA 4C.F7.EA' 

: jkp 

(EAF7 

4450 

DATA 

F0.E8 ' 

:beq 

K8 

5050 DATA 4A 

:lsr 


5650 

DATA A5,00 'N5 

:lda 

(00 

4460 

DATA 

A9,01 ' 

:lda 

1(01 

5060 DATA 90,09 ' 

:bcc 

L8 

5660 

DATA FO,03 ' 

:beû 

H6 

4470 

DATA 

BD,15,02' 

:sta 

(0215 

5070 DATA AO,00 ' 

:ldy 

1(00 

5670 

DATA 20,9D,97' 

: jsr 

ADRESS 

4480 

DATA 

DO,DA ' 

:BNE 

K7 

5080 DATA AD,15,02' 

:lda 

(0215 

5680 

DATA 20,00,93'N6 

: jsr 

TRAHE 

4490 

DATA 

AE,19,02'AFFICH:LDX 

(0219 

5090 DATA 11,10 ' 

:ora 

((10),Y 

5690 

DATA 60 

:rts 


4500 

DATA 

AC.1A.02' 

:ldy 

«021A 

5100 DATA 91,10 ' 

:sta 

((10),Y 

5700 

DATA C9.01 'ADRESS:CflP 

• (01 

4510 

DATA 

20,49,F0' 

: jsr 

(F049 

5110 DATA AD,El,02'L8 

:lda 

(02E1 

5710 

DATA FO,08 ' 

:beq 

H7 

4520 

DATA 

A5,10 ' 

:lda 

(10 

5120 DATA FO,03 ' 

:beq 

L9 

5720 

DATA A5,33 ' 

:lda 

(33 

4530 

DATA 

48 

:pha 


5130 DATA 20,10,Fl' 

: jsr 

(Fl 10 

5730 

DATA A6.34 ' 

:ldx 

(34 

4540 

DATA 

A5,ll ' 

LD A 

(11 

5140 DATA A9.FF 'L9 

:lda 

«(FF 

5740 

DATA 85,65 ' 

:sta 

(65 

4550 

DATA 

48 

:pha 


5150 DATA 8D.13.02' 

:sta 

(0213 

5750 

DATA 86,66 ' 

:stx 

(66 

4560 

DATA 

AD,15,02' 

:lda 

(0215 

5160 DATA 60 

:rts 


5760 

DATA A2,00 'H7 

:ldx 

«(00 

4570 

DATA 

48 

:pha 


5170 DATA 54 'VOCA 

:t 


5770 

DATA 86,33 ' 

:stx 

(33 

4580 

DATA 

AD,19,02’ 

:lda 

(0219 

5180 DATA 52 

:r 


5780 

DATA A5.5E ' 

:lda 

(5E 

4590 

DATA 

48 

:pha 


5190 DATA 41,4D ' 

:a,h 


5790 

DATA OA 

:asl 


4600 

DATA 

20,22,96' 

: jsr 

DROITE 

5200 DATA 45 

:e 


5800 

DATA 26,33 ' 

m 

(33 

4610 

DATA 

68 

:pla 


5210 DATA A2,00 ' 

:ldx 

««00 

5810 

DATA OA 

:asl 


4620 

DATA 

8D,19,02' 

:sta 

(0219 

5220 DATA 86,00 ' 

:stx 

(00 

5820 

DATA 26,33 ' 

,ROL 

(33 

4630 

DATA 

68 

:pla 


5230 DATA DD,23,97'B0UCL1ICHP 

VOCA.X 

5830 

DATA OA 

:asl 


4640 

DATA 

8D,15,02' 

:sta 

(0215 

5240 DATA FO,03 ' 

:beo 

ni 

5840 

DATA 26,33 ' 

:rol 

(33 

4650 

DATA 

68 

:pla 


5250 DATA 4C,70,DO'SYNTAXiJHP 

(D070 

5850 

DATA 18 

:clc 


4660 

DATA 

85,11 ' 

:sta 

(11 

5260 DATA 20,E2,00'H1 

: jsr 

(00E2 

5860 

DATA 65,65 ' 

:adc 

(65 

4670 

DATA 

68 

,PLA 


5270 DATA E8 

: inx 


5870 

DATA 85,63 ' 

:sta 

(63 

C T 
CO 
O 

DATA 

85.10 ' 

:sta 

(10 

5280 DATA E0.05 ' 

:cpx 

«FT1 

5880 

DATA A5,33 ' 

:lda 

(33 

4690 

DATA 

20,56,96' 

: jsr 

GAUCHE 

5290 DATA DO,FO ' 

:bne 

30UCL1 

5890 

DATA 65,66 ' 

:adc 

(66 

4700 

DATA 

90,0D ' 

:bcc 

L2 

5300 DATA 20.C8.D8' 

: jsr 

(D8C8 

5900 

DATA 85,64 ' 

:sta 

(64 

4710 

DATA 

E6.10 ' 

: inc 

(10 

5310 DATA EO.FO ' 

:cpx 

*(F0 

5910 

DATA 60 

:rts 


4720 

DATA 

DO,02 ' 

:bne 

L1 

5320 DATA 90,03 ' 

:bcc 

H2 

5999 

REM-IHPLANTATION DU CODE 

HACHINE 

4730 

DATA 

E6.ll ' 

: inc 

(11 

5330 DATA 4C,36,D3'QUANTI :JHP 

(D336 

6000 

RESTORE: FORI=*92F5TO*97C3 

4740 

DATA 

A9.20 'L1 

:lda 

1(20 

5340 DATA 8E,19,02'H2 

:stx 

(0219 

6010 

READA( 



4750 

DATA 

8D,15,02' 

:sta 

(0215 

5350 DATA 20,E8,00' 

: jsr 

(00E8 

6015 

IFASC(A(»70THENI = I 

-1 :NEXT 

4760 

DATA 

DO,03 ' 

: BNE 

L3 

5360 DATA C9,2C ' 

:chp 

»(2C 

6020 

A=VALC**+A() 



4770 

DATA 

4E,15,02"L2 

:lsr 

(0215 

5370 DATA DO,El ' 

:bne 

SYNTAX 

6025 

POKEI.A 



4780 

DATA 

AD,19,02'L3 

:lda 

(0219 

5380 DATA 20.E2.00' 

: jsr 

(00E2 

6030 

NEXT 



4790 

DATA 

29,07 ' 

: AND 

1(07 

5390 DATA 20,C8,D8' 

: jsr 

(D8C8 

6040 

REH—ATH0S/0RIC1? 



4800 

DATA 

85,OC ' 

:sta 

(OC 

5400 DATA E0,C8 ' 

:cpx 

t(C8 

6045 

IFDEEK(«FFFE)<>*228THENRETURN 

4810 

DATA 

AD,1A,02' 

:lda 

(021A 

5410 DATA B0,E9 ' 

:bcs 

QUANTI 

6050 

A=*EFA6 



4820 

DATA 

29,07 ' 

: AND 

1(07 

5420 DATA 8E,1A,02' 

:stx 

«021A 

6060 

DOKE*9307,A 



4830 

DATA 

A8 

:tay 


5430 DATA 20,E8,00' 

: jsr 

(00E8 

6070 

D0KEI956C.A 



4840 

DATA 

B1.63 ' 

:lda 

1(63),Y 

5440 DATA C9.2C ' 

:chp 

t(2C 

6080 

DOKE»9698,A 



4850 

DATA 

8D,13,02' 

:sta 

(0213 

5450 DATA DO,1F ' 

:bne 

H4 

6090 

AMD80D 



4860 

DATA 

A4,OC ' 

:ldy 

(OC 

5460 DATA 20,E2,00' 

: jsr 

(00E2 

6100 

DOKE*973D,A 



4870 

DATA 

FO,07 ' 

:beo 

L5 

5470 DATA C9,2C ' 

:chp 

K2C 

6110 

DOKE«9754,A 



4880 

DATA 

OA 'L4 

:asl 


5480 DATA FO,OE ' 

:beo 

H3 

6120 

DOKE»976C,A 



4890 

DATA 

2E,13,02' 

:rol 

(0213 

5490 DATA 20.C8.D8' 

: jsr 

(D8C8 

6130 

REH 



4900 

DATA. 

88 

:dey 


5500 DATA E6.00 ' 

: inc 

(00 

6140 

DOKE«930A,*F162 



4910 

DATA 

D0,F9 ' 

:bne 

L4 

5510 DATA 86,5E ' 

:stx 

(5E 

6150 

DOKE«95B8,*F009 



4920 

DATA 

38 'L5 

:sec 


5520 DATA 20,E8,00' 

: jsr 

(00E8 

6160 

DOKE497IB,«F079 



4930 

DATA 

AD.El.BF' 

:lda 

XD 

5530 DATA C9.2C ' 

:cmp 

K2C 

6170 

DCMŒ*9732,«CFE4 
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6180 DOKE#9744,#D2AO 
6190 DOKE#977D,IE79D 
6200 DOKEI9790.IE88A 
6210 RETURN 
7000 CLS:PAPER0:INK7 

7010 Ai= ,, TRAMEX,Y,NT,ADB-Auteur! 

RIVES JNARC 
7015 FORI=ITOLENtAS) 

7020 POKEIBB80+I,ASC(HID»<Af,I,l)):NE 
XT 

7030 PRIHT : PRINT : PRINT 
7040 PRINT’L'INSTRUCTION !TRAMEX,Y,NT 
,ADB 

7045 PRINT’AVEC 0<=NT<=255 ET 0<=ADB< 
=65535 

7050 PRINT"VOUS PERMETTRA DE REMPLIR 
UN 

7055 PRINT’POLYGONE QUELCONQUE A PART 
IR 

7060 PRINT’DU POINT D'ABSCISSE X.D'OR 
DONNEE Y 

7065 PRINT’AVEC LA TRAME DONT LE MOT 
IP SUR 8 

7070 PRINT’OCTETS EST IMPLANTE A L'AD 
RESSE 

7075 PRINT’ADB+(84NT)’:GOSUB8000 
7080 PRINT:PRINT:PRINT 
7090 PRINT'EXEMPLE:10CURSET120,100,3 
7093 PRINT’ 15CIRCLE50,1 

7095 PRINT’ 20ITRAMEI20,100,65 

,19800 
7097 PRINT 

7100 PRINT’LA LIGNE 30 REMPLIRA LE CE 
RCLE A 

7105 PRINT’PARTIR DU POINT 120,100 AV 
EC DES 'A' 

7110 PRINT“PUISQUE !9800+(65*8)= L'AD 
RESSE 

7115 PRINT’DE DEPART DU MOTIF DE LA L 
ETTRE A' 

7117 GOSUBBOOO 

7120 PRINT’NT 'ET' ADB PEUVENT ETRE O 
NHIS 

7123 PRINT 

7125 PRINT’EXEMPLE : 1 TRAMEX,Y 
7127 PRINT 

7130 PRINT’NT ET ADB ETANT CEUX UTIL1 
SES 

7135 PRINT’PRECEDEMMENT 
7140 GOSUB8000 

7145 PRINT’NT 'OU' ADB PEUVENT ETRE O 
MMIS 

7150 PRINT 

7155 PRINT’EXEHPLEl:’TRAHEX.Y.NT 
7157 PRINT 

7160 PR(NT"L'ADRESSE SERA CALCULEE A 
PARTIR 

7165 PRINT’DE L'ADRESSE DE BASE UTIL1 
SEE 


7170 PRINT"PRECEDEMMENT ET DU NOUVEAU 
NUMERO 

7175 PRINT’DE TRAME 
7180 HÎINT!PRINT 

7185 PRINT’EXEMPLE2:ITRAMEX.Y,,ADB 
7190 PRINT:PRINT’L'ADRESSE SERA CALCU 
LEE A PARTIR 

7195 PRINT’D'UNE NOUVELLE ADRESSE DE 
BASE HAIS 

7200 PRINT’AVEC UN NUMERO DE TRAME EG 
AL A 

7210 PRINT’CELUI UTILISE PRECEDEMMENT 
7215 GOSUB8000: PRINT 
7220 PR1NT:PRINT’REV0IR LES INSTRUCTI 
0NS(0/N)’:GETA$ 

7225 IFA4=’0’THENGOT07000 
7230 GOSUB8000 

7235 PRINT:PRINT*IMPLANTATION DU CODE 
MACHINE 

7240 PRINT’ PATIENTEZ UN INSTANT 
0?245 GOSUB6000 
^7250 GOSUB8000 

•7255 PRINT’CHAQUE FOIS QUE VOUS RECHA 
RGEREZ 

7260 PRINT’LA ROUTINE LE S'INITIA 
LISERA 

7265 PRINT"AUTOMATIQUEMENT(SUR L'ADRE 
SSE #972?) 

7270 PRINT : PRINT ; PRINT : FUINT’DERNIER 
CONSEIL:ÇtUAND VOUS UTILISEREZ 
7275 PRINT’LA ROUTINE FAITES HIHEHüB 
FFF) 

7280 GOSUB8ÛOO: PRINT : PRINT’HAINTENANT 
SAUVEZ LA ROUTINE EN TAPANT 
7285 PRINT’CSAVE TRAME ,AI92F5,E#97C3 
,AUTO 

7290 DOKEI2F5,19728:END 
8000 PRINTCHR«(27Y’T’,CHR»(J7)’L 
APPUYEZ UNE TOUCHE’:GETA< 

8010 CLS : PR I NT : PR I NT 
8015 RETURN 

è suivre 

Les paramètres NT et ADB peuvent 
être omis. Cela sous-entend qu'ils 
seront ceux utilisés lors du précé¬ 
dent appel de la fonction "TRAME”. 
Les instructions pour l'emploi de 
! TRAME sont rappelées dans le 
listing. 

Le listing 1 crée la fonction TRAME. 
Après avoir exécuté le programme, 
il faudra sauvegarder la routine par : 
CSAVE ''TRAME'',A # 92F5, 
E#97C3,AUTO 

Le ! sera automatiquement initialisé 
à #9728. N'oubliez pas ce détail si 
vous utilisez un drive ! 

Dernier point : pensez à "protéger" 
la routine par un HIMEM#8FFF 
avant de l'utiliser. 



ABONNEZ 
-VOUS 
VITE ! 


LECOMTE 

31 rue du Gai de Gaulle 
ENGHIEN LES BAINS 

SPECIALISTE 

- TELESTRAT - 

TEL 34.12.89.31 

SERVEUR MINITEL 

39.64.35.87 
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CALCULATRICE 


Calculatoric 


Wolfram LUTHER 



ien que les calculatrices simples soient bradées à des prix dérisoi¬ 
re res, nous proposons un programme permettant de créer votre pro- 
pre calculatrice sur l'écran de votre ordinateur (voir figure). Son uti¬ 
lisation est assez simple : à l'aide des touches fléchées, déplacez le cur¬ 
seur ">" et pour valider votre choix, appuyez sur ''ESPACE”, 


Exemple : 

Pour calculer 2 + 3, choisissez et 
validez dans l'ordre 
(21 [ + ] [3] [ = ) 
et le résultat 
1 5) 

s'affiche immédiatement. 

Entrons maintenant dans le détail du 
fonctionnement. 

Tout nombre comportant une man¬ 
tisse de 10 chiffres maximum peut 
être introduit à l'aide des touches [0] 
à [9] et de la touche virgule (.]. 

Un changement de signe se fait en 
appuyant sur la touche [ + /-). 

Le nombre apparaît dans le registre 
d'affichage en haut de la 
calculatrice. 

Pour effacer un nombre incorrect, 
servez-vous de la touche [CE] (clear 
entry), un [CLR] initialise tous les 
registres à l'exception des deux 
mémoires. 

Vous stockez vos données en 
mémoire par [STI] ou [ST2], un rap¬ 
pel est effectué en appuyant sur 
[RC 1 ] ou [RC2]. 


Les fonctions de notre calculatrice 
sont les suivantes : 


— touche [SIN] 

Calcule le sinus de l'argument con¬ 
tenu dans le registre d'affichage 

— touche [COS] 

Calcule le cosinus 

— touche [TAN] 

Donne la tangente de l'angle 
exprimé en radians 

— touche [ATN] 

Calcule l'arc tangente 

— touche [EXP] 

Donne l'exponentielle 

— touche [LN] 

Calcule son inverse, le logarithme 
népérien 

— touche [XI2] 

Evalue le carré 


— touche [SQR] 

Calcule la racine carrée de 
l'opérande 


Notons encore que la touche [OFF] 
entraîne l'arrêt de la calculatrice et 
le retour au BASIC. 

Quelques exemples de fonctionne¬ 
ment : 

1412 + 7*8/(-3.1 ) : 

[1] 14] [X12] [STI] [7] [*] [8] l/]{56) 

[3] [][1 ][+/-][+] (-18.0645161) 

[RC 1 ] [ = ] (177.935484) 

[4] [ + ] [6] [*] (10) [9] [ = ] (90) 

[2] [*] (*] (4) [*] (16) [ = ] (256) 

Une dernière remarque : 

En cas d'erreur de dépassement 
(POVERFLOW ERROR), tapez seule¬ 
ment GOTO 100 suivi d'un [CLR] et 
vous pouvez recommencer vos 
calculs. 


io (6i) rem mmmm 

20 (193) REM CALCULATRICE 

so (6i) rem mmmm 

40 (218) CLS:P0KE618,10:POKE26,96 
50 (3) GOSUB 1000: REM INITALISATION 
60 (84) 01=0: 02=0: Fl=0:F2=0:0=01:Af=* ":0F 
=1 

80 (98) X=7:Y=21:XL=7:XR=28:DX=7:YU=7:Y0=21 : 
DY=2:XA=X:YA=Y 

90 (23) REH ERREUR-) GOTOIOO 
100 (164) PLOT 1,1,2:PL0T2,1," CALC 

ULATRICE 

105 (236) REM «*« SAISIE DES TOUCHES tttt 
110 (100) REPEAT: GET Tf 
120 (54) IF T«=CHR$(8) THEN IF X>XL THEN X=X 
-DX 


P<°9, "o<'"' e I L\ j( a < 




Y+DY 

150 (111) IF Tf=CHRf(11) THEN IF Y>YU THEN Y= 
Y-DY 

160 (159) PLOT XJ,*) 1 

170 (90) IF (XOXA OR YOYA) THEN PLOT XA,YA 
,■ ‘:XA=X:YA=Y 

180 (203) UNTIL T t=CHR*(32): REM ESPACE 

190 (241) rem mttmmmmmmmm 
200 (223) IF <X<XR AND Y>13) THEN GOTO 500:R 
EM CHIFFRE 

210 (227) IF (X=XR AND Y>11) THEN F2=0:GOT0 7 
00:REM OPERATEUR 

220 (67) IF Y<11 THEN GOTO 600: REM FONCTION 
230 (40) IF (X=7 AND Y=13> THEN F2=0:0=0:A*= 
’ ’:GOSUB800:GOT0110 

240 (239) IF (X=14 AND Y=13) THEN F1=0: F2=0: 


130 (116) IF T$=CHR<(9) THEN IF X<XR THEN X=X 
+DX 


01=0:02=0 :0=0 :Al=‘ ■:GOSUB800:G0T0110 

250 (168) IF (X=21 AND Y=13) THEN CLS:POKE618 


140 (11) IF T4=CHRf(10) THEN IF Y<Y0 THEN Y= 


,3. END 
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260 i105 1 1F X=7 THEN Si=0:. SI*=STRilO):GOTO 
110 . • 

270 (204) IF X=21 THEN S2=0:S2«=STR*<01:G0T01 
10 

290 (14) 1F X=14 THEN 0=S1:A*=Sl* :GOSUB820:G 
OTOllO 

290 (181) IF X=28 THEN O=S2:A»=S2«:GOSUB820:G 
OTOllO 

390 (236) rem mtmmmmmmmtm 

400 (219) REM OPERATIONS 

401 (216) 01=01+02:RETURN 

402 (11) 01-01-02:RETURN 

403 (206) 01=01*02 RETURN 

404 (237) IF 02=0 THEN 02=1E-11 

405 01=01'02:RETURN 

483 1 236 ) rem mmmmtmmtmmm 
493 (166) REH ENCORE UN CHIFFRE 
500 (131) IF LEN(A»)>10 THEN IF NOT(X=2t AND 
Y=21)THENP1NG:GOT0110 

505 (27) IF (X=7 AND Y=21) THEN A*=A$+"0*:0= 
VAL(A4):GOSUB820:GOTOllO 
510 (85) IF (X=7 AND Y=19) THEN A4=A<+T:0= 
VAL<A« ) :COSUB 820:GOT0110 
515 (133) IF (X=7 AND Y=17) THEN Ai=A»+'4':0= 
VAL(A4).GOSUB820:GOTOl10 
520 (248) IF (X=7 AND Y=15) THEN Al=A»+'7':0= 
VAL(At):COSUB820:GOTO110 
525 (223) IF (X=14 AND Y=21> THEN GOSUB 580 
530 (91) IF (X=14 AND Y=19) THEN A$=A«*’2":0 
=VAL(A4):GOSUB820:GOTOl10 
535 (2I6i IF (X=14 AND Y=17) THEN A*=A*+"5':0 
=V.'iL(At) :GOSUB820:GOT0110 
540 (49) IF (X=14 AND Y=15) THEN A$=A4+'S':0 
=VAL‘A$):GOSUB820:GOTOl10 
545 (222) IF (X=21 AND Y=19) THEN Ai=Ai+'3':0 
=VAL(A$):GOSUB820:GOTO110 
550 (193) IF (X=21 AND Y=17) THEN A$=Ai+V:0 
=VAL(A4):GOSUB820:GOT0110 
555 (140) IF <X=21 AND Y=15) THEN A$=A»+'9\0 
=VAL'At):GOSUB820:GOTOllO 
560 (48) 0=-0:Ai=STR$(0):G0SUB820:GOTOl10 
580 (32) IF F2=l THEN PING:GOTO110 
590 (244) F2=l :A4=A»+'/:0=VALIA$) :GOSUB820:G 
OTOllO: REM F2 DRAPEAU VIRGULE 
595 (45) REM UtUtU FONCTION ttttmtttt 
600 (163) IF (X=7 AND Y=7) THEN 0=SIN(0):At=S 
TR6(0>:GOSUB820:A*=“ ":G0T0110 
610 (237) IF (X=14 AND Y=7) THEN 0=COS(0):A»= 
STR<(0):GÛSUB820:A<=* VGOTOllO 
620 (119) IF (X=21 AND Y=7) THEN 0=TAN(0):A«= 
STR<(O):GOSUB820:A$=* ’iGOTOllO 
630 (31) IF (X=28 AND Y=7) THEN 0=ATN(0):A»= 
STR$(0);GOSUB820:A<=" ":GOTO110 
640 (203) IF (X=21 AND Y=9) THEN 0=0*0::A*=ST 
R*(0):G0SUB820:rt$=“ *:GOTOUO 
650 (226) IF (X= 7 AND Y=9) THEN 0=EXP(0):A<= 
STRMO):GOSUB820:A»=" ":GOTO110 
660 (192) IFO<0 THEN PING:GOTOUO 
670 (108) 1F (X=28 AND Y=9) THEN 0=SQR(0):A»= 
5TRM0) :GOSUB820:A$=" VGOTOllO 



680 :135 > !FO=0 THEN F ING:GOTOl10 

600 il) G=LN(0) At=STR*(0):GOSUB820:A»=“ \ 

goto:. o 

(130) rem mitut operateur ttnmttt 

700 (113) IF Y=21 THEN GOTO 750:REM = 

705 ü53) IF Fl=1 THENO2=O:GOSUBOP+400:O=Ol :A 
4=STR$(01).GOSUB820: Fl=0 
710 (152) IF Y=19 THEN OP=l:REM + 

715 (187) IF Y=17 THEN OP=2:REM - 
720 '167) 1F Y=15 THEN OP=3:REM t 
725 (187) IF Y= 13 THEN 'OP=4:REM / 

730 >252) 01=0:A»=" ":F1=1:GOTO110 
750 (20) IF F1=0 THEN PING:G0T0110 
763 (126) 02=0:GOSUBOP+400:0=01:A$=STRti01):G 
0SUB820:Ai=" ■:F1=0:G0T0110 
780 '34) REM ItUtntttttttttttttttttttttt 
790 '130) REM EFFACER AFFICHAGE 
800 <37• PLOT 9,5/ *:R 

STUfiN 

8)0 (244) REM AFFICHER 

320 (13?) GOSUB800 

630 <125: FOR 1=1 TO 12-LENtAI) 

840 (98) PLOT14+I.5/ * :NEXT 
350 (239) PLOT27-LEN(A»),5,A» 

860 (158) RETURN 

?80 ' 34) rem ttMtttttmttmtmtmtn 

990 (126) REM INITIALISATION 

1000 (52) PLOT 4,3,"♦♦♦♦♦♦♦♦♦♦♦♦♦+♦♦♦+♦+♦♦+♦ 

1010 (166) PLOT4,23/<- + <-+++++++++++++++++++++ 
»♦<•<•+++* 

1020 (25) FOR 1=1 TO 19 

1030 (111) PLOT 4,3*1,:PLOT34,3+1, 

1040 (155) NEXT 

lOoO (255) PLOT 4,24/SERVEZ-VOUS DES TOUCHES 
FLECHEES' 



1070 

1080 

]■ 

1090 

4 TNI 
1100 
SQR1* 
1110 
RC2 ] " 
1120 
./.]■ 
1130 
* ]* 
1140 
- ]‘ 
1150 
♦ ]■ 
1160 
= ]* 
1170 
1180 
1190 
1200 


(18) 

(90) 

(75) 

(78) 

(150) 

(249) 

( 10 ) 

(142) 

( 101 ) 

(75) 

(113) 

(43) 

(106) 

(159) 


PLOT 6,25/'£SPACE> POUR VALIDER" 
PLOT 6,5/1 

PLOT 6,7/1 SIN) C COSI I TAN] I A 
PLOT 6,9, *[ EXP] I LN ] [ X*2J I 

PLOT 6,11/1 STI] I RC1] [ ST2J [ 

PLOT 4,13/1 CE ) [ CLR] I OFF] I 

PLOT 6,15/1 7 ] [ 8 ] [ 9 ] [ 

PLOT 6,17/C 4 ] C 5 ] C 6 ] C 

PLOT 6,19/C I ] C 2 ] C 3 ] C 

PLOT 6,21 /C 0 ] C . ] C ♦/-] I 

PLOT 7,21 />’ 

PAPERO: INK3:PLOT3,24,5 :PLOT3,25,6 
PLOT8,5,1:PLOT31,5,3 
RETURN • 
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Tous les produits ORIC Tous les produits ORIC Tous les produits ORIC 


JEUX D'ARCADE 


Titre 

Editeur 

Distributeur 

Support 

Compati¬ 

bilité 

Prix 

Commentaires 

j 3DFONGUS 

Loriciels 

Oric International 

D 

OAMS-- 

150 f 

Menez votre avion jusqu'au 
champ de cristal en évitant de 
nombreux obstacles 

3D INVADERS 

Quark Data 

Oric International 

K 

-A—- 

40 f 

Une version 30 du Space 
invaders : repoussez les 
vagues tf envahisseurs extra¬ 
terrestres qui menacent votre 
planète. 

3D MUNCH 

Loriciels 

Oric International 

D 

OAMS-- 

150 f 

Un excellent Pac-man en trois 
dimensions. Mangez les 
pastilles énergétiques en 
évitant les dangereux 
fantômes. 

ACHERON'S RAGE 

Softek 

Oric International 

K 

0 — 

40 f 

Combattez les nontreuses 
vagues tf envahisseurs qui 
vous menacent de 

destruction. 

ACHERON'S RAGE 

Softek 

Oric International 

D 

OAMS- 

150 f 

Combattez les non-pieuses 
vagues tf envahisseurs qui 
voue menacent de 

destruction. 

BOZYBOA 

CDS micro Systems 

Oric International 

K 

-A— 

40 f 

Guidez votre boa dans un 
champs de champignons. 

CASSE BRIQUES 

Loriciels 

Oric International 

K 

O — 

40 f 

Testez votre adresse en 
détruisant le mur de bnqoes. 

CENTIPEDE 

PSS 

Oric International 

K 

OA— 

40 f 

Pilotez votre chemIle dans un 
champs de nourriture. 

Attention à ne pas vous 
manger la queue 1 

CROCKY 

Loriciels 

Oric International 

K 

-A— 

40 f 

Testez votre adresse sur oe 
Pac*man très rapide. 

DANGEUREUSEMENT 

VOTRE 

Domark 

Oric International 

D 

—T- 

200 f 

Retrouvez le célèbre James 

Bond dans un jeu 
tfarcade^ aventure 
passionnant. 

DANGEUREUSEMENT 

VOTRE 

Oric International 

Oric International 

K 

OA—- 

150 f 

Retrouvez le célèbre James 

Bond dans un jeu 
tf arcade aventure 
passionnant. 

DANGEUREUSEMENT 

VOTRE 

Oric International 

Oric International 

D 

OAM— 

200 f 

Retrouvez le célèbre James 

Bond dans un jeu 
d'arcade aventure 

passionnant 

DEDAL 

Infogrames 

Ordividuel 

K 

OA— 

110 f 

Trouvez la sortie du labyrinthe 
en trois dimensions en terrps 
fiméé. 

DEFENCE FORCE 

Tansoft 

Oric International 

D 

—T- 

190 f 

Combattez des extra 
terrestres menaçant la 
population de votre planète. 

Des graphismes 
époustouflants. 

DEFENCE FORCE 

Tansoft 

Oric International 

K 

OA— 

40 f 

Combattez des extra 
terrestres menaçant ta 
population de votre planète. 

Des graphismes 
époustouflants. 

DINKY KONG 

Severn software 

Oric International 

K 

-A— 

40 f 

Sauvez votre oonpagne des 
nvuns du terrbie Dmky Kong. 

DOGGY 

Loriciels 

Oric International 

D 

OAMS- 

150 

Axiez le chien Doggy a 
surmonter les obstacles qui 
s'offrent à lui. 

DRACULA'S REVENGE 

Softek 

Oric International 

K 

O — 

40 f 

Tout votre courage sera 
nécessaire pour corrbattre le 
seigneur Dracula et ses 
oomparses. 

DRACULA’S REVENGE 

Softek 

Oric International 

D 

—T- 

150 f 

Tout votre oourage sera 
nécessaire pour oorrbanre le 
seçneur Dracula et ses 
oomparses. 
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Titre 

Editeur 

Distributeur 

Support 

Compati¬ 

bilité 

Prix 

Commentaires 

FROG HOP 

Tansoft 

Oric International 

D 

OAMS-- 

150 f 

Fanes traverser une route et 
une rivière pleine de dangers 
â votre g renom Be 

GALAXIANS 

Softek 

Oric International 

D 

— T- 

200 f 

Fan partie du toi ‘arcades ? : 
Annihile/ les envaheseurs 
qm se rapprochent 
inexorablement de votre 
planète. 

GALAXIANS 

Softek 

Oric International 

D 

OAM— 

200 f 

Fan parte du k* ‘arcades ? : 
Ann.h Se/ tes envahisseur» 
qui se rapprochent 
inexorablement de votre 
planète. 

GALAXIANS 

Softek 

Oric International 

K 

0 — 

40 f 

Genre ovarien : Annihilez 
tes envaheseur» qui se 
rapprochent inexorablement 
de votre planète. 

GALAXION 

Loriciels 

Oric International 

K 

O— 

40 f 

Annihilez tes nnvafrsseur* 
qm se rapprochent 
inexorablement de votre 
planète 

GALAXY5 

Durell software 

Oric International 

K 

0 — 

40 f 

3 jeux <farcade dans 
( espace et 2 jeux base pour 
débutants. 

GASTRONOM 

Loriciels 

Oric International 

K 

0- 

40 f 

Corrtoaftez les vagues de 
saucisses, choucroutes, 
chope» de frère» et 
cornichon» qui vous 
assaillent 

GHOST GOBBLER 

IJK software 

NC 

K 

OA— 


Un Pac-man passionnant, 
copie conforme du teu de 
calé avec tous ses bruitages 
et à ranimai on très raprie 

GHOSTMAN 

Severn software 

NC 

K 

OA— 


Un Pao-man somme toute 
d'assez bonne lecture. 

GODILL'ORIC 

Loriciels 

Oric International 

K 

0- 

40 f 

Seuls vce réflexes vous 
permettront d'enrayer 
rnvason de fournis qui 
menace de dçérer votre 
sucre 1 

GODILL'ORIC 

Loriciels 

Oric International 

D. 

OAMS- 

150 f - 

Seuls vos réflexes vous 
permettront d'enrayer 
rovason de fournis qui 
menace de digérer votre 
sucre 1 . 

GREEN CROSS 
ROAD 

IJK software 

Oric International 

K 

-A— 

40 f 

Fanes traverser la rue à votre 1 

grenomBe. 

HARRIERATTACK 

Durell software 

Oric International 

D 

• 

—T- 

200 f 

Fat pan» du lot 'arcade» 
n*1* : Un jeu d'arcade trt da 
la guerre da» Metoune» 

HARRIER ATTACK 

Durell software 

Oric International 

D 

OAM— 

200 f 

F as perte du loi ‘arcades 
nT : un jeu (f arcade tré de 
la guerre des Maiomnes 

HARRIERATTACK 

Durell software 

Oric International 

K 

0— 

40 f 

Un jeu cf arcade tiré de la 
guerre des Maiomnes 

HOPPER 

PSS 

Oric International 

K 

o—• 

40 f 

A»«z votre grenoutl» a 
regagner ta mare adorée 

ICEGIANT 

Softek ' 

Oric International 

K 

O — 

40 f 

Sur votre monture ailée. 

défrueez les géants de glaœ 
qm menacent votre citée. 

ICEGIANT 

• • 

Softek * . 

Oric International 

D 

* OAMS- 

1 50 f. 

Sur votre monture atiee. 
détruisez le» géant» de glaœ 
qui menacent votre cita. 

INTERTFÎON 

Loricie|s 

, * • 

• 

» 

Oric International 

* K *. 

6— *. 

* 

40 f 

Gu dé votre chenële dan» un 
charrp de chanp^none- 
peuplé cf osectes 

















































Titre 

Editeur 

Distributeur 

Support 

Compati¬ 

bilité 

Prix 

Commentaires 

INVADERS 

PSS 

Oric International 

K 

O— 

40 f 

Repoussez tes hordes 
d envahisseurs qm menacent 
votre planète 

JIMMY POUB 

Loriciels 

Oric International 

D 

OAMS-- 

150 f 

Ramassai les ordure» 
Ôoarpaléas dans votre 
maison 

JOGGER 

Severn software 

Oric International 

K 

0— 

40 f 

F ai es traverser la route au 

IOQ9" 

KARATE 

Gazoline software 

Ordividuel 

K 

OA— 

1 lOf 

Une excellente adaptation du 
;eu de karaté, avec brutages 
et an matons. Il est possfcte 
de jouer à deux 

LA CHENILLE 
INFERNALE 

Loriciels 

Oric International 

K 

0— 

40 f 

U vous faudra tous vos 
réflexes pour diriger la 
chenile infemate dans un 
décor qui ne Test pas moins. 

LE PROTECTOR 

Loriciels 

Oric International 

K 

0— 

40 f 

Grèce à votre frfète vaisseau 
'te Protector' repoussez tes 
vagues d'envahisseur» qm 
attaquent votre vile 

LIGHT CYCLE 

PSS 

Ordividuel 

K 

OA— 

115 f 

Une excellente adaptation du 
jeu de café ”1700* tiré du Mm 
du même nom 

LOKI 

Joe the lion 

Oric International 

K 

-A— 

40 f 

Une superbe bat a le 
spactate en trote dimensions 

M. A.R.C. 

PSS 

Oric International 

K 

| 

< 

O 

40 f 

Un jeu (f arcade en trois 
dimensions : sauvez les 
astronautes de votre base 
lunare attaquée par 
rennemi. 

MACADAM 

BUMPER 

Ere Informatique 

Ordividuel 

K 

OA— 

165 f 

Un flppet construdble 
ollrart de plus de très 
nombreux réglages (vitesse, 
élasticité, indinaaon .) 

MACADAM 

BUMPER 

Ere Informatique 

Ordividuel 

K 

OA — 

165 f 

Le seul flipper constructible 
sur one avec tous paramètres 
redéfimssabfe» tête que 
gravié. éiastioté... 

NESSY 

ARG 

Ordividuel 

* 

K 

OA - 

95 f 

Un jeu dam te plus pur style 
de la chendte irternate 

NIBBLER 

Oric International 

Oric International 

D 

—T- 

190 f 

Guidez un serpent dans un 
iabymthe. tout en évitant de 
vous mordre la queue en 
dtoorant les pastOes 
énergétiques qui vous font 
grandir... 

PENGORIC 

Loriciels 

Ordividuel 

K 

O 

> 

I 

145 f 

Une adaptation du célèbre 
jeu "pengo* des jeux de café 

PLAYGROUND21 

IJK software 

Oric International 

K 

-A— 

40 f 

Un superbe jeu d'adresse à 
plusieurs tableaux 

RABBIT 

Norsoft 

Ordividuel 

K 

OA— 

105 f 

Axiez votre lapn a évier 
r attaque des ohampgnons N 
est possible de jouer à 
piusteurt en même tenps. 

RAT-SPLAT 

Tansoft 

Oric International 

D 

— T- 

200 f 

Fai pane du lot 'arcades n* 

2* . empêchez une rwa» on 
de rats de dévorer vos 
morceaux de gruyère. 

RAT-SPLAT 

Tansoft 

Oric International 

K 

OA— 

40 f 

Errpéchai un* invasion de 
rae» d* dévorer vos 
morceaux dé g n/y ère 

RAT-SPLAT 

Tansoft 

Oric International 

D 

i 

OAM— 

200 f 

Fai pane du lot 'arcades n* 

2* empêchez une «ivason 
de rm» de dévorer vos 
morceaux de gruyère 
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Titre 

Editeur 

Distributeur 

Support 

Compati¬ 

bilité 

Prix 

——— 

Commentaires 

SCUBA DIVE 

Durell software 

Oric International 

K 

OA—- 

40 f 

Plongez dan» les grotte» 

sous-manne» du Pacifique À 
la recherche de perte» et de 
tré»or». Attenton aux 
pauvre» 1 

SKRAMBLE 

Microdeal 

Oric International 

D 

OAMS-- 

150 f 

A bord de votre vaisseau de 
combat, le ‘Scrambie*. 
détrueez le» réserve» 
énergétque» de r ennemi. 

STANLEY 

Loriciels 

Oric International 

D 

OAMS- 

150 f 

Errpriez des daques tout en 
évftant les monstre» qui vous 
en empêchent... 

STARFIGHTER 

Durell software 

Oric International 

K 

0 — 

40 f 

Parcourez la gaiaxe à la 
recherche de nouvelle» 

aventure». 

STAR 

Loriciels 

Oric International 

D 

OAMS- 

150 f 

Vengez voire plan ère détruite 
par des estra terrestres . 

STARTER 3D 

Landscape 

Ordividuel 

K 

OA— 

135 f 

Une superbe simulation de 
oourse automobile en troa 
dvnensons. adapta!on du 
célèbre "Pôle position'... 

SUPER METEOR 

Softek 

Oric International 

D 

—T- 

200 f 

Fa* parte du lot ‘arcades n* 

1*. Une adaptai on du feu de 
café ‘Astércnds* : détruisez 
le» astéroKfe avant qui» ne 
détruoem votre vaisseau. .. 

SUPER ADVANCED 
BREAKOUT 

Tansoft 

Oric International 

K 

OA— 

40 f 

Détruisez le» mur» de 
briques 1 

SUPER METEOR 

Softek 

Oric International 

D 

OA— 

40 f 

Une adaptation du feu de 

café ‘AstércxJs* : détruisez 
les astéroids avant qu'ils ne 
détruisent votre vaisseau... 

SUPER METEOR 

Softek 

Oric International 

D 

OAM— 

200 f 

Fa* parte du lot ‘arcades n s 
y. Une adaptai on du jeu de 
café ‘AstércxJs* : détruisez 
les astéroKfe avant qu'ris ne 
détruaent votre vaisseau... 

SUPER ADVANCED 
BREAKOUT 

Tansoft 

Oric International 

D 

OAMS- 

150 f 

Détruisez les rrurs de 
briques 1 

SUPER JEEP 

Loriciels 

Oric International 

D 

OAMS- 

150 f 

A bord d'une super jeep. 

patrouillez A la surface d'une 
planète hostile. 

SUPER FRELON 

Loriciels 

Ordividuel 

K 

OA— 

135 f 

A raide de votre hélooptère 
Super Frelon, reconstruisez 
le pont qua a été dètruS par 
rennemL 

THE ULTRA 

PSS 


K 

0 — 

40 f 

Détruisez A raide du 
vaisseau ultra les 
nombreuses vagues 
d'envahisseurs galactquos 
qm vous menacent. 

TRIATHLON 

Ere Informatique 

Ordividuel 

K 

OA— 

155 f 

Une superbe simulai on de té 
à rare, tf aviron et 
<ThaJléroph*e 

ULTIMA ZONE 

Tansoft 

Oric International 

D 

—T- 

200 f 

Fa* parte du lot ‘arcades 
n*1". Perdu dans la zone 
uftima. VOUS êtes confronté à 
de norrtjreux ennema... 

ULTIMA ZONE 

Tansoft 

Oric International 

K 

OA— 

40 f 

Perdu dans la zone ubma. 
vous êtes confronté à de 

nombreux ennema. 

ULTIMA ZONE 

Tansoft 

Oric International 

D 

OAM- 

200 f 

Fa* parta du lot ‘arcades 
nT. Perdu dan» la zone 
utima. vous été» confronté A 
de nontyeux ennema.» 
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Titre 

Editeur 

Distributeur 

Support 

Compati¬ 

bilité 

Prix 

Commentaires 

VIDEO FLIPPER 

Loriciels 

Ordividuel 

K 

OA— 

145 f 

Un flppor extrêmement 
rapide où seuls vos réflexes 
vous permettront de gagner 
des partes gratuites 1 

VIDEO FLIPPER 

Loriciels 

Oric International 

D 

OAMS-- 

145 f 

Un flçper extrêmement 
rapide où seuls vos réflexes 
vous permettront de gagner 
des partes gratuites 1 

XENON 1 

IJK software 

Ordividuel 

K 

OA— 

105 f 

Un dassxjue du jeu d arcade 
en quatre tableaux 
totalement en assembleur „ 

XENON III 

IJK software 

Ordividuel 

K 

OA— 

115 f 

La tut* du oMtxe pu 
d arcade Xénon 1. avec de 
nouveaux tableaux tout en 
assentteur. 

ZORGON'S 

REVENGE 

IJK software 

Ordividuel 

K 

OA— 

115 f 

Un jeu d'arcade en 6 
tableaux particulièrement 
sonnés. Animât on s et 
dessins de grande qualité 

1 JEUX D’AVENTURES 

AIGLE D'OR 

Loriciels 

Loriciels/Oric 

International 

K 

OA— 

40 f 

’Le* jeu tf aventure graphique 
sur One : trouve* ragie dor 
perdu au fin fond dun château 
de la westphake. 

AIGLE D'OR 

Loriciels 

Loriciels/Oric 

International 

D 

OAMS-- 

200 f 

“Le* jeu d aventure graphique 
sur oric : trouvez ragle do r 
perdu au fin fond dun château 
de la westphake 

CRVPT SHOW 

Norsoft 

Ordividuel 

K 

OA™ 

110 f 

Un jeu daventure agrémenté 
de graphèmes agréables 

Choix possble entre texte et 
■mages... 

DETECTIVE 

STORY 

Ere Informatique 

Ordividuel 

K 

OA— 

160 f 

De nombreuses éngme* 
poi oô res a résoudre. 

Graphismes fouiles... 

HOUSE OF DEATH 

Tansoft 

Oric International 

K 

OA— 

40 f 

Un jeu daventure en anglaa. 

KILBURN 

ENCOUNTER 

Tansoft 

Oric International 

K 

OA— 

40 f 

Un jeu daventure en anglais. 

LA CITE DE 
CRISTAL 

Bleudel 

informatique 

Bleu Ciel 
Informatique 

K 

-A— 

150 f 


LA FLUTE INCA 

Marco Polo 

Ordividuel 

K 

O 

> 

125 f 

Un jeu daventure en Amérique 
du Sud. agrémenté de 
nombreux graphèmes 

LATOUR 

FANSTASTIQUE 

No man's land 

Ordividuel 

K 

OA— 

125 f 

Ressortirez-vous vivant de la 
tour fantastique ? Plus de 100 
sales à découvrir... 

LE FER 
D'AMNUKOR 

Norsoft 

Ordividuel 

K 

OA—- 

195 f 

La suite du jeu de rôle Tyrann* 
par la même équee. Un jeu 
toujours aussi otéressant 

LE MANOIR DU 
DOCTEUR GENIUS 

Loriciels 

Oric International 

D 

OAMS-- 

200 f 

Enferme dans le mano* du 
diabolique docteur Genius, 
trouvez la def du manoir et 
ressortez vivant. 

LE MANOIR DU 
DOCTEUR GENIUS 

Loriciels 

Ordividuel 

K 

OA— 

140 f 

Enferme dans le manoir du 
diabokque docteur Genius, 
trouvez la def du rmncxr et 
ressortez vivant. 

LE MASQUE D'OR 

Ordividuel 

Ordividuel 

K 

OA—- 

150 f 

Retrouvez le masque dor 
perdu... Un jeu pas sonnant 1 









































Commentaires 














































= TELESTRAT = 


TELESTRAT . Configuration de base comprenant : 

Unité centrale, lecteur de disquette 3" double face, 400 K, 
langages Hyper-Basic et Télématic, système d'exploitation 
Stratsed,câbles péri tel, minitel et alimentation secteur. 

Relié au minitel, Téléstrat devient "le serveur le moins 
cher du monde" (Minitel magasine 02/87). 

Editeur de pages, d'arborescences et BAL intégrés. 


L'ensemble ORIC TELESTRAT 


3990 F 




NOUVEAU STRATORIC EST ARRIVE 

11 vous permet d'utiliser votre Téléstrat en mode 
émulation Oric lou. Atmos, pour charger vos K7 ou 
vos disquettes Sedoric ou convertir XLdos ou Tdos. 
Transférez vos K7 sur disquettes, jeux, utilitaires... 
Trois ordinateurs en un : Oric 1, Atmos avec 
microdisc et Téléstrat. 

Cartouche+Sedoric complet+manuel Atmos 
et notice d'emploi du STRATORIC 490 h 


Assembleur double passe 6502 
Télé-Ass en cartouche contient tous 
les mnémoniques du moniteur, et 
n’occupe pas l'espace de l'ut ilisateur ._ 


Complet avec manuel 


590 F 


Complément de l'assembleur, il vous 
révélera tous les secrets du système 


Le manuel dévelloppeur: 


190 F 




FIG-FORTH 500 mots, manuel très 
complet 75 pages, intègre toutes les 
fonctions système du Téléstrat, écran 
hires, son serveur, disques .=-—- 

Télé-Forth cartouche: 490 F 













1 EXTENSION RAM 64 K 






Ce pseudo disque de 64 Ko, charge 5 à 18 fois plus 
rapidement vos fichiers et programmes, n'inhibe pas les 
interruptions dont le micro ne s'arrête plus lors des accès 
disque. Livré avec une disquette de programmes pour 
installer votre disque virtuel et mode d'emploi. 


Cartouche RAM-64 K: 


690 F 


REPRISE DE VOTRE 

ORIC Pour l'achat d'un téléstrat, 
votre ancien Oric 1 ou Atmos, avec 
son alimentation, vou s est repri s 
pour la somme de 


690 F 


Indispensable pour avoir l'heure, la 
date du jour même si le lecteur a été 
interrompu, la pile dure plus de deux 
ans , applications en basic , en 
serveur, jeux avec manuel et listing de 
programmes. _ 590 F 


PERIPHERIQUES ET ACCESSOIRES 


Microdisc suplémentaire 

Le téléstrat peut en avoir 4 1790 F 

Boitier multiprint permet de connecter 
plusieurs Téléstrat sur l'imprimante 
modèle 4 voies sans câbles 1450 F 

modèle 8 voies sans câbles 1950 F 

Moniteur couleur 36 cm RVB + son 2490 F 

Moniteur monochrome vert 1150 F 

Modulateur N/B avec câbles 345 F 

Câble Péritel 120 F 

Joystick Spectravidéo 90 F 

Souris pour Téléstrat 690 F 


Câble imprimante type Centronic 
Disquette vierge 3" 

Câble moniteur monochrome 


PACKAGES RADIO-AMATEURS 



RTTY 

Fac-Similé 


390 

390 



I HQRLQÇE TEMPS REEL 
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Le micro ordinateur Atmos, complet, performant doté 
d'un basic puissant, d'un synthétiseur musical, dun 
graphisme en haure résolution en 8 couleurs, dispose 
d'une vaste gamme de logiciels, dans tous les domaines 
d'activité: jeu, éducation, dessin, musique, etc... 

Il peut recevoir de nombreux périphériques, magnéto, 
lecteur de disquettes, interface joystick, horloge temps 
réel, cane relais, etc... 


Livré avec 2 K7 de jeu, 1 K7 dénio, 
câbles K7, péritel, alim. et manuel. 


990 F 


... .— . 

LECTEUR DE CASSETTES 


Spécialement conçu pour les micros, et en 
particulier pour l'ORIC Atmos, ce 
magnéto K7 est équipé d'un buzzer qui 
vous permet de suivre le déroulement de 
vos programmes. 

Il est doté d'un compteur pour repérer vos 
bandes et de prises DIN ou Jack pour la 
liaison au micro-ordinateur. - 


350 F 




INTERFACE .IOYSTICK 

PROGRAMMABLE 
Il vous permet d’utiliser vos jeux 
et programme avec un joystick à la 

P lace du clavier. 

I se programme en appuyant sur 
la touche du clavier et en mettant la 
manette dans la position que vous 
souhaitez pour cette touche. 

Il permet également d'éviter dans 
certaines applications d'utiliser le 
clavier. 

Interface + manuel 350 F 

Joystick Spectravideo 95 F 



l. ■■ ■ — PERIPHERIQUES ET ACCESSOIRES - 


Microdisc Esclave B,C,D sans alim 

1490 F 

Modulateur N/B avec câble Atmos 

345 F 

Disuette Sedoric + manuel 

490 F 

Imprimante Cosmos 80 

2890 F 

Alimentation pour 2 microdisc 

450 F 

Câble imprimante pour Atmos 

180 F 

Carte controleur seule (pour 4 lecteurs) 

990 F 

Ruban de Rechange pour Cosmos 80 

100 F 

Câble nappe 34c pour Microdisc 
Transformation Oric 1 en Atmos Français 

120 F 
490 F 

LIBRAIRIE 


Echange Standart Carte Anglaise en état 


Guide de l'Oric 1 

95 F 

contre carte Fr., péri-alim, garantie 1 an 

450 F 

50 Programmes pour Oric 1 

Manuel de l'Atmos 

90 F 

Moniteur couleur 36 cm RVB+son 

2490 F 

50 F 

Moniteur monochrome vert 

1150 F 

L'Oric à nu F. Broche 

151 F 

Câble péritel auto-alim, pour Oric Français 

150 F 

Communiquez avrc votre Oric 

145 F 

Câble moniteur monochrome 

80 F 

Interfaces pour Oric 

59 F 

K7 vierge Cl5 par 10 

100 F 

Mieux Programmer sur Oric 

110 F 

Disquette 3" vierge l'unité 

39 F 

Apprenez l'électronique sur Oric 

110 F 


k___ s 
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== LOGICIELS == 


ATMOS / ORIC 1 




ATMOS 


cassette 


Méthode Assimil Anglais 

250 F 

Méthode Assimil Espagnol 

250 F 

Cours de Basic 

150 F 

Author (traitement de texte) 

100 F 

J. Bond(Dang.Votre arc/av) 

150 F 

3D Invaders (Arcade) 

40 F 

Chess II (réflexion) 

40 F 

Defence Force (Arcade) 

40 F 

House of death 

40 F 

Novotnik puzzle (réflexion) 

40 F 

Oric-Munch (arcade) 

40 F 

Rat-Splat (arcade) 

40 F 

Super Break-out 

40 F 

Super météor (arcade) 

40 F 

Ultima Zone (arcade) 

40 F 


TELESTRAT 

Disquettes sous Stratsed 


Dangereusement vôtre 200 F 

Arcades N°1 Harrier attack 
Super météor.Ultima zone 200 F 

Arcades N°2 Flight simul. 

Galaxian, Rat-splat 200 F 

Télé-CHESS 200 F 

Méphisto ( avent. FR ) 155 F 

Musirama (éducatif) 195 F 

Clavidact (éducatif) 185 F 

Télékube (Rubik’s) 200 F 

Nibbler (arcade) 190 F 

Défence Force (arcade) 190 F 

Ludico (éducatif) 205 F 

Metho-Loto (loto) 195 F 

StratMon (ass.désass) 200 F 

Gestion d'adresses 590 F 

Lisbal (gestion BAL) 1000 F 

Graph (utilitaire) 250 F 

Crisp(jeu) 150 F 

Accent Vidéotex (utilitaire) 490 F 
Stratdisk (utilitaire) 250 F 


Cartouches 


TELE-ASS + manuel 590 F 

TELE-FORTH +manuel 490 F 

STRATORIC +disc+man. 490 F 

ROMORIC 1 200 F 

ROMATMOS 200 F 

RAM 64 Ko+disc+man. 690 F 


ORIC 1 

cassettes 


Archeron's Rage (arcade) 

40 F 

Annuaire (familial) 

40 F 

Assemb. desass (utilitaire) 

40 F 

Carn 3 (arcade) 

40 F 

Casse-briques (arcade) 

40 F 

Centipede (Arcade) 

40 F 

La chenille infernale (Arcade) 

40 F 

J. Bond(Dang.Votre arc/av) 

150 F 

Dico 5 (éducatif) 

40 F 

Dracula's Revenge (Arcade) 

40 F 

Europe (géographique) 

40 F 

Galaxians (Arcade) 

40 F 

Galaxion (Arcade) 

40 F 

Gastronom (Arcade) 

40 F 

Geofrance (éducatif) 

40 F 

Gencar (utilitaire) 

40 F 

Gestion de Stock 

40 F 

Godilloric (Arcade) 

40 F 

Harrier Attack (Arcade) 

40 F 

Hopper (Arcade) 

40 F 

Hyper Master mind (refl) 

40 F 

Ice Giant (Arcade) 

40 F 

Intertron (Arcade) 

40 F 

Invaders (Arcade) 

40 F 

Le Protector (Arcade) 

40 F 

Orible (Arcade) 

40 F 

Oric-Mon(utilitaire) 

40 F 

Puissance 4 (réflexion) 

40 F 

Startfighter (Arcade) 

40 F 

The Ultra (Arcade) 

40 F 

Word Process (trt de tex) 

40 F 


J 


v 
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ORIC 

/ » m m m I 

NEWS 


LOGICIELS sur Disquettes sous Sedoric ou Stratoric 


Arcades N°1 Harrier Attack 

Super Météor, Ultima Zone 200 F 

Arcades N°2 Flight Simul. 

Galaxian, Rat-splat 200 F 

Méthode Assimil Anglais 300 F 

Méthode Assimil Espagnol 300 F 

Manoir du Dr Génius 200 F 

Le Retour du Dr Génius 200 F 

Super Advances Breakout 150 F 

Space Shuttle 150 F 

Skramble 150 F 

3 D Munch 150 F 

Star 150 F 

Oric Munch 150 F 

Chess II 150 F 

Stanley 150 F 

Super Jeep 150 F 

Doggy 150 F 

Orible 150 F 

J'apprends l'anglais 150 F 

Dico 5 150 F 

lntertron 150 F 

Trait 3D 150 F 

La chenille infernale 150 F 

Starfighter 150 F 

Godilloric 150 F 

Geofrance 150 F 

Europe 150 F 

Galaxy 5 150 F 

Annuaire 150 F 

Cours de Basic 150 F 

Kilburn Encounter 150 F 

Jeux pour enfants 150 F 

Novotnik Puzzle 150 F 

House of Death 150 F 

Postman sam 200 F 

Sam go Shopping 200 F 

Mystery Tour 200 F 

Hubert 150 F 


Hubert 

150 

Scuba Dive 

150 

Sorvivor 

150 

F* *uzzle 

150 

Kilburn Encounter 

200 

Traitement 3D 

200 

Frog-Hop 

150 


NOUVEAUTES 

3D FONGUS 

Menez votre avion jusqu'au champ de 
cristal en évitant de nombreux obstacles. 

ACHERON'S RAGE 

Combattez les nombreuses vagues d'envahisseurs 
qui vous menacent de destruction 

JIMMY-POUB 

Ramassez les ordures éparpillées 
à tous les étages de votre maison. 

DRACULA'S REVENGE 

Tout votre courage sera nécessaire pour 
combattre le seigneur Dracula et ses comparses. 

L'AIGLE D'OR 

Promenez-vous dans le château 
pour découvrir le trésor 

JAMES BOND 

Vous pouvez prendre sa place dans ces 
deux jeux d'arcades 1 aventures 

LORIGRAPH 

Creer vos propres dessins 
grâce à ce logiciel 

EASY-TEXT 

Traitement de texte 



39 RUE VICTOR-MASSE 75009 PARIS 
TÉL : (16-1) 42.81.20.02 - TU: 649 385 F 
MINITEL (16-1)42.81.22.72 


Boutic’Oric ouverte du 
lundi au vendredi de 
9 h à 13 h et de 14 h à 18 h. 


Bon de commande à retourner chez ORIC International 


J” Je désire recevoir les matériels ou logiciels suivants: 


Iqte 

DESIGNATION 

PRIX 

S/TOTAL 













1 

I Nom 
j Adre 
j Code 
| Telef 
j Maté 

postal:.Ville:. 

TOTAL = 

+ PORT 35 F 

ihone:. 

riel possédé:. 

Si contre/rbt 50 F 


• Materiel possédé:. 

i Signature: A REGLER: 

(Parents si mineurs) 
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Titre 

Editeur 

Distributeur 

Support 

Compati¬ 

bilité 

Prix 

Commentaires 

DONJUANS ET 
DRAGUEURS 

No man's land 

Ordividuel 

K 

OA—- 

150 f 

Jeu de stratège amoureuse. 

ECHECS 

Bleu ciel 
Informatique 

Bleu ciel 
Informatique 

K 

-A—- 

150 f 


HYPER MASTER 
MIND 

Loriciels 

Oric International 

K 

0— 

40 f 

Une très bonne adaptai on 
du oèlèbre jeu de réflexon... 

MILLIONNAIRE 

Ere Informatique 

Ordividuel 

K 

OA— 

1301 

Arfez le héros du jeu a 
devenir rrwflonnare 1 

NOWITNIK PUZZLE 

Tansoft 

Oric International 

K 

OA—- 

40 f 


PARAGRAM 

Eléphant 

software 

Oric International 

K 

o— 

40 f 

Jouez sur les mots 1 

PUISSANCE 4 

Loriciels 

Oric International 

K 

0— 

40 f 

Le peu très dassque du 
Pmssanœé 

REVERSI 

CDS micro 
Systems 

Oric International 

K 

0— 

40 f 

Le très classique Othelo- 
Revers i... 

RINGO 

Eléphant 

software 

Oric International 

K 

0— 

40 f 


TELE-CHESS 

Tansoft 

Oric International 

D 

—T- 

200 f 

J*u<f échec» 

UNE AFFAIRE EN 
OR 

Free game blot 

Ordividuel 

K 

OA— 

145 f 

Vous êtes PDG de la société 
'Apple* oompany". gérez 
votre entrepose. 

VISION 

Loriciels 

Ordividuel 

• - 

K 

_ 

OA— 

130 f 

Jeu d’observation et de 
réflexes pour enfants. 

LES UTILITAIRES 

ANNUAIRE 

Loriciels 

Oric International 

K 

o. 

40 f 

Gérez vos adresses sur œt 
annuaire informatisé. 

ASSEMBLEUR- 

DESASSEMBLEUR 

Durell software 

Oric International 

K 

0-— 

40 f 


AUTHOR 

Tansoft 

Oric International 

K 

OA— 

lOOf 

Traitement de texte 

D.A.O. 

Bleu ciel 
Informatique 

Bleu ciel 
Informatique 

K 

-A— 

160 f 

Un (AJtaire de dessin assisté 
par ordnjleur 

DIALOGUE 

Bleu ciel 
Informatique 

Bleu ciel 
Informatique 

K 

-A-— 

120 f 


DIT.. ? D'AC.. ! 

Bleu ciel 
Informatique 

Bleu ciel 
Informatique 

K 

-A— 

130 f 


GENCAR 

Loriciels 

Oric International 

K 

0- 

40 f 

Editeur de caractères 
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Titre 

Editeur 

Distributeur 

Support 

Compati¬ 

bilité 

Prix 

Commentaires 

GESTION 

D'ADRESSES 

Oric International 

Oric International 

D 

—T- 

590 f 


GESTION DE 
STOCK 

Loriciels 

Oric International 

K 

O— 

40 f 


HADES 

Ere Informatique 

Ordividuel 

K 

OA— 

255 f 

Assembleur-désassembl Sur 
double passe (Hyper 
Assembleur Désassempleur 
Editeur Sourceur) 

JASMITEL 

NC 

Ordividuel 

D 

-A-J 

490 f 

Logiciel de communication 

LISBAL 

Oric International 

Oric International 

D 

—T- 

lOOOf 

Logcoi tf exploitation de la 
bai pour serveur Tétestrat 

LISSAGES DE 
COURBES 

Bleu ciel 
Informatique 

Bleu ciel 
Informatique 

K 

-A—- 

120 f 


LORIGRAPH 

Loriciels 

Oric International 

D 

OAMS- 

300 f 

Editeur graphique haute 
résolution avec éditeur par 
loones 

LORIGRAPH 

Loriciels 

Ordividuel 

K 

OA- 

299 f 

Un fantastique utilitaire de 
dessin pour fOnc avec 
icônes et touches fléchées 

LUDICO 

Bleu ciel 
Informatique 

Bleu ciel 
Informatique 

K 

-A— 

150 f 


MASTER PAINT 

Ere informatique 

Ordividuel 

K 

OA— 

260 f 

Un très bon logiciel de dessin 
avec remplissages de 
fçures. trames... 

METHO-LOTO 

Bleu ciel 
informatique 

Bleu ciel 
informatique 

D 

.—T- 

195 f 

Gagnez au loto 1 

METHO-LOTO 

Bleu ciel 
Informatique 

Bfeu ciel 
Informatique 

K 

-A-— 

140 f 

Gagner au loto 1 

MODULE ACCENT 
VIDEOTEX 

Oric International 

Oric International 

D 

—T- 

490 f 


MUSIRAMA 

Bleu ciel 
Informatique 

Bleu ciel 
Informatique 

K 

-A—- 

140 f 


ORDIDACTIC 

SVM 

Ordividuel 

K 

O 

> 

l 

l 

• 

l 

250 f 

Une excellente initiât on au 
langage machine. Apprenez 
en toute simptaté le 
fonctonnnement du 
processeur. 

ORIC-MON 

PSS 

Oric International 

K 

O- 

40 f 


ORICADE 

Severn software 

Oric International 

K 

OA—- 

40 f 

Assembleur désasserrpieur 1 

OUTIMATIC 

Bleu ciel 
Informatique 

Bleu ciel 
Informatique 

K 

-A— 

120 f 


STRATMON 

Oric International 

Oric International 

D 

—T- 

200 f 

Moniteur mmi asierrtoteur 

STRATDISK 

Oric International 

Oric International 

D 

—T- 

250 f 

Analyseur de disquettes 

STRATORIC 

Oric International 

Oric International 

C 

—T- 

490 f 

“Emulateur ÔftC-1et ÀTMÔS.| 

fourni avec d «fluette et 
manuel 

SYSTEM'ANIM 

Bleu ciel 
Informatique 

Bleu ciel 
Informatique 

K 

-A— 

140 f 

Créez vos propres 
animal ont. 
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Titre 

Editeur 

Distributeur 

Support 

Compati¬ 

bilité 

Prix 

Commentaires 

TRAITEMENT 3D 

Loriciels 

Oric International 

K 

o. 

40 f 

Création. modification, 
sauvegarde dessins en 30 

VORTEX 

Loriciels 

Ordividuel 

K 

OA—- 

275 f 

Un très bon traitement de 
texte, avec scroflmgs 
permettant le travail de 80 à 

256 colonnes... 

WORD 

PROCESSOR 

Juniper 

computing 

Oric International 

K 

o. 

40 f 

Traitement de texte. 

LES LANGAGES | 

FORTH 

Tansoft 

NC 

K 

OA-S- 

40 f 

Le langage FORTH. 

FORTH 

ARG 

NC 

K 

OA-S- 

40 f 

Une excellente adaptation du 
langage FORTH. 

ROMATMOS 

One International 

Oric International 

C 

-—T- 

200 f 

Emulation Atmos sur 

Téléstrat (n'émule pas le 
lecteur de disquettes) 

ROMORIC 1 

Oric International 

Oric International 

C 

—T- 

200 f 

Emulation ORC 1 sur 

Télestrat (n'émule pas le 
lecteur de drsquetlee) 

SEDORIC 

Oric International 

Oric International 

D 

OAM— 

490 f 

Système d exploitation du 
rracrodec 

STRATORIC 

Oric International 

Oric International 

D 

—T- 

490 f 

Emulation de rORC-1 et de 
r ATMOS avec émulation du 
lecteur de dis quelles 

TELE-ASS 

Oric International 

Oric International 

C 

—T- 

590 f 

Editeur, débugger, 
as sent) leur double passe 
intégrant les étiquettes du 
télé mon. Se connecte sur le 
port gauche. Hyper-base 
inclus dans la cartouche 

TELE-FORTH 

Oric International 

Oric International 

C 

-T- 

490 f 

Sans doute une des 
meilleures adaptation du 

FORTH pour TELESTRAT sur 
nscro ordinateur. 

LOGICIELS EDUCATIFS 

4GAMES 

Kindersoft 

Oric International 

K 

-A — 

40 f 

4 jeux élémentaires pour 
jeunes enfants, en quatre 
langages dont le français... 

CLAVIDACT 

Bleu ciel 
Informatique 

Bleu ciel 
Informatique 

D 

—T- 

185 f 

Méthode d apprentissage de 
Irappe. 

CLAVIDACT 

Bleu ciel 
Informatique 

Bleu ciel 
Informatique 

K 

-A—- 

130 f 

Logoel tf apprentissage de 
frappe au davier. 

COURS DE BASIC 

Oric International 

Oric International 

K 

OA— 

150 f 


COURS DE BASIC 
SUR ATMOS 

JRD 

Oric International 

K 

-A — 

150 f 


EUROPE 

Promotique 

Oric International 

K 

o . 

40 f 


GEOFRANCE 

Promotique 

Oric International 

K 

o . 

40 f 

Ensemble composé de 16 
jeux. 

LE LIEVRE ET LA 
TORTUE 

NC 

Ordividuel 

K 

OA—- 

145 f 

Un logoei éducatif pour 
jeunes enfants. 
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Titre 

Editeur 

Distributeur 

Support 

Compati¬ 

bilité 

Prix 

Commentaires 

LUDICO 

Oric international 

Oric International 

D 

— T- 

205 f 

Jouez avec les mots ... 

MATH-SAM 

Bleu ciel 
Informatique 

Oric 

Internationat/Bleu 
ciel Informatique 

K 

-A— 

120 f 

Logiciel éducatif 
d’apprentissage aux 
mathématiques modernes, 
nrveau école primaire. 

METHODE ASSIMIL 
ANGLAIS 

Oric International 

Oric International 

K 

OA— 

250 f 

La célèbre méthode ASSIMIL 
enfm adaptée sur ordinateur 

METHODE ASSIMIL 
ESPAGNOL 

Oric International 

Oric International 

K 

OA—- 

250 f 

La célèbre méthode ASSIMIL 
enfm adaptée sur ordinateur 1 

METHODE ASSiMIL 
ANGLAIS 

Oric International 

Oric International 

D 

OAM— 

300 f 

La célèbre méthode ASSiMIL 1 
enfm adaptée sur ordinateur 1 

METHODE ASSIMIL 
ESPAGNOL 

Oric International 

Oric International 

D 

OAM— 

300 f 

U célèbre méthode ASSIMIL 
enfin adaptée sur ordinateur 1 

MUSIRAMA 

Oric International 

Oric International 

D 

—T- 

195 f 

Initiation à la musique 

ORTHOCRACK 1 

Hatier 

Ordividuel 

K 

OA— - 

175 f 

Testez votre vocabufawe. 

Trois programmes à votre 
service : Orthocrack 1.2 et 

a.. 

ORTHOCRACK 2 

Hatier 

Ordividuel 

K 

OA—- 

175 f 

Maîtrisez votre orthographe 
grâce à ce logioel éducatif. 

ORTHOCRACK3 

Hatier 

Ordividuel 

K 

OA— 

175 f 

La suite du logoel 

Orthocrack 2. Maîtrisez votre 1 
orthographe et la grammaire 1 
française. 

TELEKUBE 

Oric International 

Oric International 

D 

—T- 

200 f 

Résoudrez-vous le problème 1 
du Rubik's cube ? 

EXTENSIONS 

ALIMENTATION 

MICRODISC 

Oric International 

Oric International 


—T- 

450 f 

Alimentation électrique pour 
deux mcrodscs. 

CABLE NAPPE 

Oric International 

Oric International 


-MST- 

120 f 

Gable en nappe de 34 
oonnecteurs pour rr»crod«c. 

CABLE PERITEL 

Oric International 

Oric International 


OA— 

150 f 

Câble péntei auto alimenté 
pour ORC-t et A T MO S avec 
carte françaoe. 

CABLE 

IMPRIMANTE 

Oric International 

Oric International 


OAMSTJ 

180 f 

Câble imprimante pour sortie 
Centronics (paraféte). 

CARTE 

CONTROLEUR 

Oric International 

Oric International 


OA— 

990 < 

Carte contrôleur seule pour 
quatre lecteurs. 

DISQUETTE 
VIERGE 3" L'UNITE 

Oric International 

Oric International 


OAMSTJ 

39 f 


EXTENSION RAM 
64 Ko. . 

Oric International 

Oric International 


—T- 

690 f 

Cartouche <S extension avec 
manuel et logeai de deque 
virtuel 

HORLOGE TEMPS 
■ REEL 

Oric International 

• • » 

Oric International 

f 

OAMST- 

590 f 

Horloge temps réel avec 
sauvegarde par pile 
incorporée, fonction alarme 
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Titre 

Editeur 

Distributeur 

Support 

Compati¬ 

bilité 

Prix 

Commentaires 

IMPRIMANTE 80 
COLONNES 

Oric International 

Oric International 


OAMSTJ 

2890 f 

Imprimante A aiguille. 

INTERRUPTEUR 
| D'ALIMENTATION 

Ordividuel 

Ordividuel 


OA— 

85 f 

Ne grillez plus vos ROM 
grâce A coi interrupteur 
d alimentai on. 

INTERFACE 

JOYSTICK 

Oric International 

Oric International 


OAM— 

350 f 

Ini «H aoe joystck 
programmable, fonctionne 
avec tous les jeux. 

JOYSTICK 

SPECTRAVIDEO 

Oric International 

Oric International 


OAMSTJ 

95 f 

Un superbe joystick au 
design «su de f aviation. 

K7 VIERGE C15 
PAR 10 

Oric International 

Oric International 


OA— 

lOOf 


LECTEUR 

|microdisc ATMOS 

Oric International 

Oric International 


OA— 

2690 f 

Lecteur mrcradec avec 
alimentation. SE DO R IC et 
manuel. Lecteur double tète 

400 Ko. 

MAGNETOPHONE 

Oric International 

Oric International 


OA— 

350 f 

Magnétophone spécial Oric 

MICRODISC 

ESCLAVE 

Oric International 

Oric International 


OAMS- 

1490 f 

Lecteur double lace 400 Ko 
sans alvnsntatron pour 

Almos (lecteur b. e ou d). 

MICRODISC POUR 
TELESTRAT 

Oric international 

Oric International 


—T- 

1790 f 

Lecteur esclave b. c. ou d 
pour le Télestra! 

MODEM DIGITELEC 

Ordividuel 

Oric International 


OAMS- 

990 f 

Modem fourni avec fiierface 
intégrée et logoei. 

1 MODULATEUR N/B 

Oric International 

Oric International 


OAMS- 

345 f 

Modulateur rvb avec câble 

atmos. 

MONITEUR 

COULEUR 

Oric International 

Oric International 


OAMSTJ 

2490 f 

• 

MONITEUR 

MONOCHROME 

. Oric International 

Oric International 

. 

OAMSTJ 

1150 f 

» 

MULTIPRINT 
(4 VOIES) 

Oric International 

Oric International 

# . • 

—T- 

1490 f 

Pour oonnecter 4 Téiest/ats à 
une mpnmante 

MULTIPRINT 
(8 VOIES) 

Oric International 

Oric International 


—T- 

1950 f 

Permet de relier B Télestra A 
la mArne vrpnmante. Vendu 

sans câble 

RALLONGE 

PERITEL 

Ordividuel 

Ordividuel 


OA— 

95 f 

Ne restez plus oollé A récran 

RTTY 

Oric International 

Oric International 

• 

—T- 

390 f 

Transforme votre 

TELESTRAT en lernsnel 
tetetype ém ssorvrecept on. 
Livre avec utAtarres sur 
disquette. 

RTTY 

Oric International 

Oric International 


OAMS- 

390 f 

Transi orne votre ORIC en 
termnel tetetype 
érmscrvréception. Livre 

avec uNnaree sur dequena 1 

RUBAN ENCREUR 

Oric international 

Oric International 

;* 

OAMSTJ 

1001. 

Ruban de rechange pour 
cosmos - 80. 

• SEDORIC + 
MANUEL 

•• * 1 

Oric International 

Oric international 

• • . • • 

• 

• 

OAM—. 

'490 f 

Système d'explotaton hyper 1 
Pue sert ratouts plus de 90 
instructions au BAS C de * 1 
fATMOS. 
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1 Titre 

Editeur 

Distributeur 

Support 

Compati¬ 

bilité 

Prix 

Commentaires 

SOURIS POUR 
TELESTRAT 

Oric International 

Oric International 


—T- 

690 f 


FAC SIMILE 

Oric International 

Oric International 

D 

—T- 

390 f 

ErmsorVréosptcn d'images 
au formai téféoop*. livré 
avec utilitaire» sur disquette. 

FAC SIMILE 

Oric International 

Oric International 

D 

OAMS- 

390 f 

Erm son/réception d'images 
au formai léféoopo. livré 
avec uti Ut aires sur disquette. 

SYNTHEVOC1 

Ordividuel 

Oric International 


OAMST- 

240 f 

Synthétiseur vocal. Dotez 
votre OR C de la parole 1 

TRANSFORMATION 
ORIC-1 --> ATMOS 

— 

Oric International 

Oric International 


o~- 

490 f 

T r ans for mat on de votre Ono- 
1 en Aimos carie françaoe 
(échange standard contre un 
ATMOS). 




LES LIVRES 






50 PROGRAMMES 
POUR ORIC-1 

Oric International 

Oric International 


OAS- 

90 f 


A LA 

DECOUVERTE DU 
TELESTRAT 

Oric International 

Oric International 


—T- 


(Disponible en seprentve) 

APPRENEZ 

L’ELECTRONIQUE 

Soracom 

Oric International 


OAMS- 

110f 

Apprenez rélectronique sur 
Oric. 

COMMUNIQUEZ 
AVEC VOTRE ORIC 

Soracom 

Oric International 


OAMS- 

145 f 


GUIDE DE L’ORIC-1 

Soracom 

Oric International 


O- 

95 f 


INTERFACES 
POUR ORIC 

Soracom 

Oric International 


OAMS- 

59 f 


L’ORICANU 

Soracom 

Oric International 


OAMS- 

151 f 

Par Fabnoe Broche, 
oonœpteur du Sédonc et du 
Téiestrai. Un musl.. 

MANUEL DE 
L’ATMOS 

Oric International 

Oric International 


-A— 

50 f 


MIEUX 

PROGRAMMER 
SUR ORIC 

Soracom 

Oric International 


OAMS- 

110f 


MANUEL DE 
REFERENCE 
(tome 1 ) 

Isosoft 

Soracom 


OA— 

99 f 


MANUEL DE 
REFERENCE 
(tome II) 

Isosoft 

Soracom 


OA— 

99 f 
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SAUTEZ LA PLIURE ! 


François ROCHICCIOLI 


« 

L 


'édition de listings avec l'ATMOS (et bien d'autres ma¬ 
chines...) n'est pas parfaite car on se retrouve sou- 
ivent avec des lignes imprimées juste sur le pli du pa¬ 
pier... Le court programme ci-dessous se charge de pal¬ 
lier le défaut et transformera radicalement vos listings, 
pour peu que vous possédiez une imprimante de type 
GP100 ou compatible EPSON, modèles sur lesquels il a 
été testé. A vous d’essayer sur votre matériel ! 


Cet utilitaire, qui une fois chargé par 
le programme BASIC dont la liste 
est jointe, permet par la commande 
directe ?&(0) de lister la totalité 
d'un long programme BASIC qui né¬ 
cessite plusieurs pages de listing, 
en évitant sur imprimante d’écrire 
sur la ''pliure” ou le "pointillé" des 
feuilles, ce qui améliore très nette¬ 
ment la présentation des listings en 
plusieurs pages. Les lecteurs ayant 
un désassembleur pourront exami¬ 
ner le programme machine à partir 
de #B800 ; le programme s’inspire 
de la routine LIST en ROM 
(#C748), à laquelle j'ai apporté 
quelques modifications. Il m'a suffit 
de prévoir un décompte de 60 ou 
66 lignes par page (selon que la 
feuille de papier fait 11 ou 12 pou¬ 
ces), quand ce décompte atteint 
zéro, on fait sauter six lignes à la tê¬ 
te d'impression de l'imprimante et 
on recommence avec la page sui¬ 
vante. 


0 CLS:PRfNT :PRINT"0k chargement ferai 
ne..." 

1 POKEi 2F2,12B : LIST10-80 : PRINT : PRINT 

2 PRINT'Pour commencer faire RUN10." 

3 PRINT.PRINT” ATTENTION le programme 
se termine": PRINT" par un NEW." 

4 END 
7 ; 

5 : 

9 : 

10 '.-. 



15 ' 

20 ' ATflOS 

25 ' 

30 ' Listage de programmes 

35 ' 

40 ' en Basic sur imprim. avec sauts 
45 ' 

50 ' de 6 1 ignés a la pliure. 

55 ' 

60 ' Par François Rochiccioli 

65 ' 

70 ' Mai 1985 

80 '.. 

90 CLS:PRINT:PRINT:PRINT:PRINT" Veui 
llei patienter..." 

100 A=#B800:FORI=0T0226:READ C:P0KEA+ 


230 DATA IF0,#7,160,#A9,#FF, #85,#34,# 
85,*34,IAÛ,*1,IB1,ICE,IF0,151,120,162 
240 DATA *C9,IC9,«20,ID0,«E,I4E,»DF,* 
2,*AD,*DF,I2,I10,*FB,«20,I62,*C9,*4E 
250 DATA #DF,#2,#C8,«Bl,«CE,*AA,«C8,# 
B1,ICE,#C5,I34,ID0,*4,IE4,#34,«F0,I2 
260 DATA IB0,»2B,184,IB8,#48,120,#F0, 
#CB,#C6,#0,IF0,15F,#68,120,#C5,#E0,#A9 
270 DATA #20,#A4,#B8,#29,#7F,#20,#D9, 
#CC,#C8,#F0,#11,#B1 ,#CE,#D0,#1E,#A8,#B 
1 

280 DATA #CE,#AA,#C8,#B1,#CE,#86,#CE, 
#85,#CF,#D0,#A9,#2C,#F2,#2,# 1 0,# 1 ,#60 
290 DATA #20,#F0,#CB.#20,#2F,#C8,#68, 
#ù8, #4G ,#A8, #C4,#1 0,#D6,#38,#E9,#7F,#A 
A 


I,C:NEXT 

105 CLS: PRINT : PRINT : PRINT : PRINT : PRINT 
" LISTE BASIC SUR GP100A" 

108 PRINT:PRINT:PRINT“ commande par 
?M0)“ 

110 CALL#B800:PRINT:PRINT 

115 PRINT"Papier listing de 11 ou 12 
pouces":PRINT 

116 PRINT-Soit: 28 ou 30 cm":PRINT:PR 
INT 

120 INPUT" Longueur feui1 les!l=28cm/2 
=30cm)";Q« 

125 Q=VAL(Q<):IFQ>20RQ<1THEN120 
130 IF Q=1 THEN PRINT" Pret.":NEW 
140 IF Q=2 THEN POKE#B80C,67:POKE#B8D 
2,66:PRINT* Pret.":NEW 
150 END 

190 .. 

200 DATA #A9,#B,#8D,#FC,#2,#A9,#B8,#8 
D,#FD,#2,#60,#A9,#3D,#85,#0,#20,#16 
210 DATA #C8,#4E,#F2,#2,#20,#E8,#0,#8 
,#20,#E2,#CA,#20,#B3,#C6,#28,#F0,#14 
220 DATA #20,#E8,#0,#F0,#15,#C9,#2D,# 
D0,#A,#20,#E2,#0,#F0,#6,#20,#E2,#CA 


300 DATA #84,#B6,#A0,#0,#A9,#E9,#85,# 
18,#A9,#C0,#85,#19,#CA,#F0,#D,#E6,#18 
310 DATA #D0,#2,#E6,#19,#B1,#18,#10,# 
F6,#4C,#B6,#B8,#C8,#B1,#18,#30,#AD,#20 
320 DATA #D9,#CC,#4C,#C6,#B8,#A9,#3C, 
#35,i0,#A9,#6,#85,#l,#20,#2,#CC,#C6 
330 DATA #1,#D0,#F9,#4C,#72,#B8 
400 ' 

410 '.. 

420 ' Format feuilles: 


430 ' 

440 ' 

adresses 

28cm 

30cm 

450 ' 

#B80C 

#3D=61 

#43=67 

460 ' 

#B8D6 

«06 

«06 

470 ' 

«B8D2 

#3C=60 

#42=66 


480 '. 

490 ' 

500 ' Voir la ligne 130 .choix du 
510 ' format de la feuille de papier. 
520 ' Les DATA contiennent les octets 
525 ' aux adresses ci-dessus pour des 
530 ' feuilles de 28 cm. 

540 ' 

900 '- 
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BtDQUILlF 



ET CONTROLEZ LA ROTATION D'UN MOTEUR 
AVEC VOTRE ORDINATEUR (ATMOS OU ORIC1) 

3ème Partie 
LE PROGRAMME 


Maurice LE GUVADER 


L e programme en BASIC (listing 1) permettra de charger le langa¬ 
ge machine mis en DATA et de faire fonctionner le moteur par 
les commandes proposées dans le menu. Les lignes 250 à 280 
(réglage des temporisations) devront être adaptées en fonction du 
moteur et des relais pour permettre un arrêt avec les balais position¬ 
nés sur un des repères dessinés sur l'engrenage modifié (traits 'c' 
sur la vue F figure 3 de l'article sur la transformation du moteur). 



Les réglages se font interface sor¬ 
tie imprimante, moteur, alimenta¬ 
tions connectés et programme 
BASIC chargé et lancé. Le contrôle 
de la rotation de l'engrenage modi¬ 
fié se fera par l'ouverture 'g' figure 4 
de l'article sur la transformation du 
moteur. 


1er réglage 

temporisation frein avant : 

-faire tourner le moteur d'un pas 
dans le sens positif avec la touche 


flèche droite, le moteur avance 
d'un pas et freine en effectuant 
une légère marche arrière. Cette 
marche arrière doit être à peine 
amorcée, le réglage de cette opéra¬ 
tion se fera en modifiant la valeur 
"pokée" en 6 ligne 270. 
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2ème réglage 

temporisation frein arrière : 


-faites tourner le moteur d'un pas 
dans le sens négatif avec la touche 
flèche gauche, le moteur recule 
d'un pas et freine en effectuant 
une légère marche avant. Cette mar¬ 
che avant doit aussi être à peine 
amorcée, le réglage de cette opéra¬ 
tion se fera en modifiant la valeur 
"pokée" en 7 ligne 280. 


3ème réglage 

temporisation d'arrêt avant : 


- faites tourner le moteur de 10 pas 
dans le sens positif avec la touche 
flèche haut, le moteur avance de 
10 pas et s'arrête. Cet arrêt doit se 
faire sur le repère tracé entre 2 la¬ 
mes de laiton collées sur l'engrena¬ 
ge modifié, le réglage de cette opé¬ 
ration se fera en modifiant la valeur 
"pokée" en 4 ligne 250. 


4ème réglage 

temporisation d'arrêt arrière : 


- faites tourner le moteur de 10 pas 
dans le sens négatif avec la touche 
flèche bas, le moteur recule de 10 
pas et s'arrête. Cet arrêt doit aussi 
se faire sur le repère tracé entre 2 la¬ 
mes de laiton collées sur l'engrena¬ 
ge modifié, le réglage de cette opé¬ 
ration se fera en adaptant la valeur 
"pokée" en 5 ligne 260. 

Après plusieurs essais le fonction¬ 
nement devrait être convenable 
pour une marche à vide avec tout 
de même une tolérance due aux di¬ 
vers jeux des engrenages. Le pro¬ 
totype tourne sans perte de pas à 
vide comme en charge à condition 
de ne pas bloquer le moteur, ce qui 


est d'ailleurs très difficile compte 
tenu du couple élevé disponible 
sur la broche de sortie. 

Les graduations (-46 à + 46) du dis¬ 
que de carton collé (figure 1 du 1er 
article sur le moteur) pourront se 
faire en faisant tourner le moteur en 
pas à pas (flèche droite ou flèche 
gauche). 


Conseils pour modifier le 
programme : 


Le décomptage des pas dans le 
programme machine se faisant sur 
un octet, la commande ne peut pas 
dépasser 255 pas à chaque appel 
par CALL $700B, sens, nombre de 
pas. On peut au besoin program¬ 
mer un déplacement important en 
utilisant une boucle de répétition. 

Exemple : 

En mode direct après être sorti du 
programme BASIC de contrôle du 
moteur par l’option DEL du menu 
principal : taper FORI : 1T04 : CALL 
$700B, 1, 250 : NEXT puis 

RETURN 

le moteur avance de 1000 pas (pa¬ 
tience... à 5 tours par minute et à 
92,4 pas par tour la rotation dure 
plus de 2 minutes), 
tapez FORI = 1 T04 : CALL $700B, 
0,250 : NEXT suivi de RETURN 
le moteur recule de 1000 pas reve¬ 
nant ainsi à son point de départ. 

Cette solution pourra être incluse 
au programme BASIC en le transfor¬ 
mant à condition de conserver les li¬ 
gnes d'initialisation (100 à 500 et 
7000 à 9640). 

A vos claviers pour recopier le pro¬ 
gramme BASIC (listing 1) en tenant 
éventuellement compte de l'adapta¬ 
tion pour ORIC1 (listing 2). 

PUB... 

Une version de ce programme fonc¬ 
tionnant avec une carte 8 entrées 8 
sorties (ATMOS et ORIC 1 ) sera en¬ 
registrée sur la disquette THEORIC 
avec les programmes décrits dans 
ce numéro. 

A SUIVRE... pour le source com¬ 
menté de la partie programmée en 
langage machine. 



18 • + -♦ 

11 ‘ ! contrôle de la rotation i 

12 ' ! d'un aoteur de barbecue I 

13 ' ! transforaé et coaaandé ! 

14 ' ! par la aortie iapriaante 1 

15 ' ! (interface 4 construire) ! 

16 ' I version ATttOS ! 

17 ' ♦.+ 

28 'toutes les reaarques C) peuvent 

être suppriaées. 

25 ‘certaines lignes sont longues, 
reaplacer PR INT par ? 

30 ‘exeaple: 

'"texte' est Équivalent 4 PRINT'texte" 
35 ‘RUN7000 pour reconfigurer les 
caractères a : ç é É ' fl É 
48 ‘ (touches I 1 \ { > t ] £) 

188 PAPER0:INK7:CLS 
111 HIHEH 17000 ‘ protège le LU 
128 P0KE826A,18 ' curseur Éteint 
clavier auet 

138 E$=CHR$(27) ' escape 
148 SOSU67808 * caractères éçéè'ûê 

158 6OSUB8000 ' caractères kax 

160 GOSUB9000 ' langage aachine 
178 INIT=«7000 ' initialisation LH 
180 CM*I700B * coaaandé aoteur 
198 POKE0,8 'aèaoire octet sortie 
200 'interface iapriaante (4 adapter 
281 'si l'interface est utilisée 

202 ‘pour coaaander un autre systèae) 

203 Tes bits 0 et 1 seront aodifiés 
par le langage aachine 

204 Tes autres bits (en sortie) 

205 ‘peuvent être utilisés pour 

206 'coaaander un autre systèae 4 

207 ‘condition de aéaoriser l'octet 

208 de coaaandé en 00 dans un pro- 

209 ‘grasse BASIC ou langage aachine. 

210 ' ♦-♦ 

211 ' I réglage des teaporisations ! 

212 ♦-♦ 

213 '(4 adapter en fonction du aoteur 

214 'et des relais utilisés en aodi- 

215 'fiant las lignes 250 4 280) 

216 'TEMPO FREIN AVANT: le aoteur 

217 'doit faire un freinage, aais pas 

218 'une aarche arrière. 

219 ‘TEMPO FREIN ARRIERE: le aoteur 

220 ‘doit faire un freinage, sais pas 

221 ‘une aarche avant 
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222 TEMPO D'ARRET AVANT: le «oteur 

223 'doit s'irriter au ailieu de 

224 '2 contacts 

225 'TEMPO D'ARRET ARRIERE: le aoteur 

226 'doit s'irriter au ailieu de 

227 '2 contacts 

' teapo arrit avant 
’ teapo arrit arriire 
' teapo frein avant 
' teapo frein arriire 
' initialisation LM 

+—.♦ 

! coaaandes aoteur ! 
*-♦ 


250 P0KE4,25 
260 P0KE5,120 
270 P0KE6,100 
280 P0KE7,140 
290 CALL INIT 

497 ’ 

498 ' 

499 ' 

500 CLS 

510 P0KE9,0 ' RAZ drapeau panne 

520 P0KEI26A,10 ’ curseur éteint 
530 6OSUB5000 ' affiche titre 

540 PRIUm^jEi'D’E*^ RAZ du aot 
eur "EI’P" 

550 PRINT49,8|E$ , ‘D-E*‘S<k> AVANT 1 p 

as ‘E$‘P‘ 

560 PRINTi9,9;E$‘D‘E$“S(t> AVANT 10 p 

as ‘E$‘P‘ 

570 PRINTi9,10;E**D"E**S<w> ARRIERE 1 
pas ‘E$‘P‘ 

580 PRINTA9,ll;E**D , E*“S<x> ARRIERE 1 
0 pas ‘E*‘P‘ 

590 PRlNTi8,14;EI‘B<P> nposer une PO 
SI T ION* 

600 PRINTà8,15;Ef"B<D> positions en D 
ATA" 

610 PRINTA9,18;*<L> lister le proqraa 

ae" 

620 PRINTA8,19;*<DEL> arrêt du proqra 

aie" 

630 IFPEEK(9)=0THEN660 ' .. panne 
640 PRINTA11,22;CHR$(14)Ei”Laoteur en 
panne ";:EXPLODE:NAIT100 
650 Y-23:6OSUB5200:6OTO500 
660 P0KEI26A,10:PRINTA13,22;CHR4(14)“ 
position: ‘PO 
670 PRINTA13,24; 

680 POKE026A,11 ' curseur alluaé 
690 P0KE42DF,0:SETAS 
700 IFA»*CHR$(B)THENCALLCM,0,1 :PO=0:G 
OTO630 ’ flèche gauche 
710 IFA*=CHR$(9)THENCALLCM,1,1 :PO=0:6 
OTO630 ' flèche droite 
720 IFAI=CHR$(10)THENCALLCM,0,10:PO=0 
:6OTO630 ' flèche bas 
730 IFA$=CHR$(11)THENCALLCM,1,10:PO*0 
:GOTO630 ' fltche haut 
740 IFA$="P“THEN1000 ' <P> 

750 IFA$=*D*THEN2000 ' <D> 

760 IFAS>*L*THENCALL»F8D0:6OSUB7000: C 
LS:LIST ' <L> IF8D0 = caract. noreaux 
770 IFA$=CHR$(127)THENCALL4F8B2 ' 
<DEL> (reset é chaud) 

780 PIN6:HA1T40:6OTO690 

997 ' ♦.♦ 

998 ' ' ! aarche aoteur par 1NPUT I 

999 - ♦-♦ 

1000 CLS 

1010 IFPO=0THEN1030 


1020 PRINTi6,9;E*‘Lcontrôlez la RAZ d 
u aoteur * : PING:MAIT60:Y>11:6OSUB5200:6 
OTO500 
1030 CLS 

1040 6OSUB5000 ' affiche titre 
1050 6OSUB5100 ' affiche position 
1060 PRINTA14,7j"<H> aenu a 

1070 PRINTi2,ll;CHR$(14)‘destination 
(-46 i 46) <RETURN>‘ 

1071 ' les liaites aaxiaua sont de 
1172 ' -127 i *127 en aodifiant les 
1073 'lignes 1070, 1150 ,2120 et 2984 
1080 P0KES26A,11 * curseur alluaé 
1090 GOSUB5300 ' vérif. touche lâchée 
1100 CALL4FB14 * clic clavier 

1110 PRINTA34,11;:INPUTDE* 

1120 POKE»26A,10 * curseur éteint 
1130 IFDE*=*M“THEN500 
1140 DE-VAL(DE*) 

1150 IFDES< >*0*ANDDE=0ORDE<-46ORDE>46 
ORINT(DE)< >0ETHENPIN6:HAIT60:6OTO1030 
1160 BOSUB6000 ' coaaande aoteur 
1170 8OTO1030 

1997 ' ♦-♦ 

1998 ' !aarche aoteur par les DATAS! 

1999 ' ♦.+ 

2000 CLS 

2010 IFPO=0THEN2030 
2020 PRINTA6,9;Et'Lcontrôlez la RAZ d 
u aoteur*:PIN6:HAIT60:Y=11:6OSUB5200:6 
OTO500 

2030 P0KE426A,10 ' curseur éteint 
2040 6OSUB5000 * affiche titre 
2050 PRINTA11,6;‘positions en DATAS* 
2060 DOKEtB0,DEEK(»E9> ' restore 
2070 REPEAT 

2080 6OSUB5100 ' affiche position 
2090 READ DES ' destination 
2100 IF DE$=‘ARRET‘THEN2220 
2110 DE=VAL(DES) 

2120 IFDES< >‘0‘ANDDE=0ORDE<-460RDE >46 
ORINT(DE><>DETHEN2250 ' test données 
2130 PRINTA12,11;CHRS(14)‘destination 
‘DE:PRINTA15,13; 'affiche destination 
2140 BOSUB6000 ' coaaande aoteur 
2150 6OSUB5100 ' affiche position 
2160 READ ARt ’ teaps d'arrit 
2170 AR=VAL(ARS) 

2180 IFARS< >‘0'ANDAR=0ORAR<0ORAR>11TH 
EN2250 ' erreur si données fausses 
2190 IFARs0THEN2220 
2200 IF AR<11THENPR1NTA1,11;CHRS(14): 
PRINTA11,13;‘arrêt‘AR‘secondes*:WAITAR 
*100 

2210 IFAR=11THENPR1NTA1,11 ; CHRS ( 14) : Y 
=13:6OSUB5200 
2220 UNTIL DES=‘ARRET* 

2230 PRINTé4,ll;*fin des coaaandes pa 
r les DATAS' 

2240 Y=13:GOSUB5200:GOTO500 
2250 PRINT49,13;CHRS(14)‘erreur dans 
les DATAS' 

2260 PIN6:UAIT60:Y S 15:6OSUB5200 
2270 CLS:P0KEI26A,11:P0KE42DF,0:LIST3 

000-4980 


2980 ’ ♦-♦ 

2981 ‘ ! liste DATAS ! 

2982 ' ! (déplaceaents) 1 

2983 ' ♦-♦ 

2984 'position absolue -46 é 46 

2985 'arrit de 0 à 10 secondas 

2986 '(11 = appuyez sur une touche) 

2987 "ARRET* * la fin des DATAS 

2988 'les autres valeurs seront 

2989 refusées (aessage d'erreur 

2990 'et arrit du prograaae). 

2991 ' exeaple de déplaceaents : 

2992 ' 1er chiffre = destination 

2993 ' 2e chiffre * teaps d'arrit 
3000 DATA 0,0 

3010 DATA 5,0 
3020 DATA 10,0 
3030 DATA 15,0 
3040 DATA 0,0 
3050 DATA -10,0 
3060 DATA -20,0 
3070 DATA -19,0 
3080 DATA -18,0 
3090 DATA -17,0 
3100 DATA -16,0 
3110 DATA -15,0 
3120 DATA - 5,0 

3130 DATA 0,0 

3140 DATA 1,11 

3150 DATA 5,2 

3160 DATA 10.0 
3170 DATA 5,5 
3180 DATA - 5,3 
3190 DATA 0,11 
3200 DATA ARRET 


4997 ' ♦-♦ 

4998 ’ ! sous prograaaes : 

4999 ' ♦. : .♦ 

5000 PRlNTél2,l;ES‘Bcoaaande d'un* 


5010 PRINTi9,3;CHRS(4>ES*J‘ES‘BHQTEUR 
DE BARBECUE‘CHRS(4) 

5020 RETURN 

5100 PRINTil2,9;CHRS(14)“position 
■POiRETURN 

5200 PRINTi8.Y;CHRS(14)ES°Lappuvez su 
r une touche 

5210 8OSUB5300 vérif. touche lâchée 
5220 REPEAT 
5230 : N=N+1 

5240 : IFM=l5THENCALLiFB14 
5250 : IFN=30THENCALLIFB2A:N=0 
5260 : 'FB14 et FB2A * clic clavier 

5270 UNI ILPEEK 11208 ) 0138 
5280 H=0:P0KEA2DF.0:RETURN 
5300 REPEAT ’ vérifie si 

5310 UNTILPEEK(#208)=*38 les touches 
5320 POKEI2DF.0 sont lâchées 

5330 RETURN 

5990 ' ♦.♦ 

5991 ‘ ! calcul noabre oe pas i 

5992 ' ♦- 

5993 'PO * position 

5994 'NP : noabre de pas 

5995 SE * sens de rotation 

5996 DE » destination 
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6000 IF DE)POTHENSE*1ELSESE:0 
6010 NP=ABS(PO-DE) 

6020 P0=DE 

6030 IFNP=0THENPRINTA8,13;CHR$(14)'le 
aoteur ut déjà »n*DE| « ZAP: WAIT00 : RET 
URN 

6040 PRIN1èll,l3;CHR$(l4)NP'pas en" 
6050 IFNP>9THENX=22ELSEX=21 
6060 IFSETHENPRINTAX,13;“avant"ELSEPR 
INT»,13; •arrière" 

6070 CALL tH.5E.NP 

6080 IFPEEK(09)=0THEN6120 ’ .. panne 
6090 PRINTâl0,13;CHRI(14)EI"L aoteur 
en panne * :EXPLODE:WAIT100 
6100 IFSETHENPO=PO-NPELSEPO=PO+NP 
6110 Y=1S:6OSUB5200:GOTO500 
6120 PRINTI0,13;CHR$(14) 

6130 RETURN 

6997 ' ♦.♦ 

6998 ‘ ! caractères ilçéê'Oè ! 

6999 *■ .♦ 

7000 IFDEEKIIB600)=10810ANDDEEK(I86FD 
I=#1E20THEN7150 

7010 DOKEI306.IFFFF ' réduction des 
interruptions (pain 20 l du teaps) 
7020 CLSiPRINTâH.5; 'caractères' 

7030 PRINT415,7;■èlcéè'ûè" 

7040 CALLIF8D0 ' caractères noraaux 

7050 DOKEIB0.DEEMIE9) * restore 

7060 F0RI=1T08 

7070 :READAS 

7080 : F ORJ=0107 

7090 : READA 

7100 : POKEIB400+8*ASC(Al)+J, A 
7110 i NEXT 
7120 :CALLIFB2A 
7130 NEXT 

7140 DOKEI306,10000 
7150 RETURN 

7500 DATA 1,16,8,28,2,30,34,30,0 
7510 DATA !,8,8,8,0,8,8,8,0 
7520 DATA \,0,0,30,32,32,36,30,16 
7530 DATA {,4,8,28,34,62,32,30,0 
7540 DATA ),16,8,28,34,62,32,30,0 
7550 DATA [,0,8,20,8,0,0,0,0 
7560 DATA 1,8,20,28,34,34,34,28,0 
7570 DATA £,8,20,28,34,62,32,30,0 

7997 < +-♦ 

7998 * I caractères k,it,x I 

7999 • +-♦ 

8000 DOKEI306.4FFFF 

8010 PRINT» 4,11)'car ictères' 

8020 PRINTA16,13;"k h x* 

8030 DOKE!B0,DEEK(tE9) ' restore 

8040 F0RI*1T03 

8050 :READAS 

8060 ) FORJ=0TO7 

8070 : READA 

8080 i POKEIB400+8*ASC(Al)+J,A 
8090 : NEXT 
8100 1CALLIFB2A 
8110 NEXT 

8120 DOKEI306,10000 
8130 RETURN 

8500 DATA k,8,8,8,8,42,20,8,0 


8510 DATA h, 0,4,2,61,2,4,0,0 
8520 DATA x,0,8,16,47,16,8,0,0 

8997 ' ♦-♦ 

8998 ‘ ! chargeaent Langage Machine ! 

8999 • +-♦ 

9000 IFDEEK(47000)=*6620ANDDEEK(I700B 
) =»6A20ANDDEEK (17119) =I60FBTHEN9240 
9010 D0KE4396,IFFFF 

9020 PRINT412,17;'langage aachine* 
9030 DOKE4B0,DEEK(4E9) ' restore 
9040 AD-97000 * 1er octet LH 

9050 LI-9500 ’ 1ère ligne DATA 

9060 F0RI=1T015 ' 15 lignes de DATA 
9070 S=0 * soaae octets lus 

9080 PRINTil4,19;Migne*LI 
9090 CALLIFB14 * clic davier 
9100 FORJ=1TO20 ’ 20 octets / ligne 
9110 READRS:R=VAL('•'♦R4) 


checksua 

octet en aéaoire 
octet suivant 


9120 S=S+R*J 
9130 POKEAD.R 
9140 AD=AD+1 
9150 NEXT 

9160 READSD * checksua réel 
9170 IFS*SDTHEN921I 
9180 PRINTA10,19;CHR$(14)'erreur en 1 
igne'LI:P0KE426A,11 
9190 PING:DOKE4306,10000:POKE47000,0: 
PRINTs PRINT:PRINT 

9200 IFLK9570THENLIST9500-9560ELSEL1 
ST9570- 
9210 LI»LI+10 
9220 NEXT 

9230 DOKEI306,10000 
9240 RETURN 

9500 DATA 20,66,F7,A5,00,29,1C,85,00, 
60,EA,20,6A,70,20,C5,D8,86,08,8a, 22635 
9510 DATA F0,03,20,7E,78,20,C5,DB,A0, 
FF,8C,08,03,86,03,8A,F0,30,20,9B,23151 
9520 DATA 70,C6,03,F0,1A,C6,03,F0,0A, 
20,CA,70,20,E3,70,C6,03,D0,F6,20,26263 
9530 DATA CA,70,20,E3,70,20,04,71,20, 
AB,70,20,CA,70,20,£3,70,20,08,71,19926 
9540 DATA 20,AB,70,20,Al,70,20,8C,70, 
AD,00,03,09,10,8D,00,03,8C,03,03,11577 
9550 DATA 20,10,71,4C,E0,ED,78,A9,1F, 
8D,03,03,A5,00,80,01,03,AD,00,03,14700 
9560 DATA 29,EF,80,00,03,60,A9,04,8D, 
05,71,BD,09,71,A5,00,09,01,00,19,15799 
9570 DATA A9,05,8D,05,71,80,09,71,AS, 
00,29,FE,18,90,0A,A5,00,09,02,00,17462 
9580 DATA 04,A5,00,29,FD,85,00,80,01, 
03,68,A5,08,D0,08,20,7E,70,20,0E,15458 
9590 DATA 71,D0,D5,20,8C,78,28,8B,71, 
20,0B, 71,08,BC,68,68,A9,81,85,09,19952 
9600 DATA D0,89,A2,08,8C,09,03,A9,20, 
2C,01,03,F8,0C,A9,20,2C,8D,03,F0,16076 
9610 DATA F2,CA,D0,EC,F8,E0,68,84,8A, 
A2,08,8C,09,03,A9,20,2C,01,03,00,18153 
9620 DATA 0E,B4,0A,A9,20,2C,0D,03,F0, 
F8,CA,08,EA,F8,C3,C6,IA,08,E2,60,33424 
9630 DATA A5,04,4A,2C,A5,04,2C,A5,06, 
2C,A5,07,8D,09,03,A9,20,2C,00,03,11792 


9640 DATA F0,FB,60,55,55,55,55,55,55, 
55,55,55,55,55,55,55,55,55,55,55,18370 

Listing 2 

♦-—-♦ 

! contrôle de la rotation i 
! d'un aoteur de barbecue i 
! transPoraé et coaaandé i 
! par la sortie îapnaante ! 

! adaptation 0R1C 1 i 
+---♦ 

* suppnaez les reiaroues ou 
reaplacez les Cl de début 
de ligne par REH 

* reaplacez les PRINTiX.Vj.. 
par 'X.Vj.. 

* ajoutez ou aodiPiez 
les lignes suivantes : 

20 REH siaulation PRINT è sur ORIC 1 

21 CLSiPRINT'patience...' 

22 FORI-0TÛ43B 

23 : READAI:A*VAL(*1"+AI):S 3 S+A»(1+1) 
:POKE»B400+I.A 

24 NEXT 

25 IFS< >202396THENPRINT:PRINT*erreur 
dans les datas*:LIST27-29 

26 D0KE4F3.DEEK(42FS):D0KE42F5.IB400 

27 DATA 20,8D,D8,86,0C,20,0A,D8,E8,AD 
,6A,02,48,29,FE,8D,6A,02,A9,00 

28 DATA 20.CB,F7,AS,0C.80.69.02.8A.80 
,68,02,20,65,O9,A5,1F,A4,20,85 

29 DATA 12,84,13,68,80,6A,02,A9,01,20 
,CB,F7,A9,3B,20,DB,CF,4C,63,CB 

760 IFA$=*L'THENCALL4F89B:GOSUB7000:C 
LSiD0KEI2F5,DEEK(*F3):LIST 
770 IFAI=CHRI(127>THEND0KE42F5.DEEK(t 
F3 )î CALL4F882 
1100 CALLIFAFA 

2200 IFARdlTHEN' 1,11;CHRIH4) t ! 11,13 
;‘arrêt 'AR'secondes*: MAITAR*100 
5240 i IFNM5THENCALLIFAFA 
5250 : IFN=30THENCALLIFB10:N=0 
6030 IFNP*0THEN!8,13;CHRI(14)'le aote 
ur est déjà en "DE;î ZAP:MAIT80:RETURN 
6040 '12,13;CHRI<14)NP'pai en 1 
6100 IFSETHENPO=PO-NP 
6105 IFSE=0THENPO=PO+NP 
7040 CALLIF89B 
7120 :CALL4FB10 
8100 :CALL4FB10 

9000 IFDEEK(07800)=43520ANDDEEK(«7008 
) «06A20ANDDEEK (17119) M60FBTHEN9240 
9080 ! 14,19;'ligne *LI 
9090 CALLIFAFA 

9180 ! 10,19;CHRS(14) 'erreur en lign 
e *LI:P0KE!26A,11 
9200 IFLK9570THENL1ST9500-9560 
9205 IFLI>9568THENLIST9570- 

9221 DOKEI7I0F, ID80A: DOKEI701A, IDB8A 

9222 DOKEI7001,IF735:DOKE«7068,IECC7« 
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Jean-François BOSCUS 


pprendre la géographie de la France tout en s'amusant, voici ce 
que propose cette excellente réalisation qui exploite au mieux 
> les possibilités cachées de l'ORIC. 

La "règle du Jeu” est intégrée au logiciel. Pour constituer la casset¬ 
te, procéder ainsi : 


A 


-Taper le programme de dessin et 
sauvegarde de la carte. Lors de 
l’exécution, le remplissage de la car¬ 
te doit vous laisser le temps d'aller 
boire un coup au bistrot du coin (20 
mn) ! Mais, de grâce, pardonnez- 
moi, cela ne vous arrivera qu'une 
seule fois. C'est la rançon pour 
avoir une carte soignée et détaillée. 
Il est toutefois recommandé de sur¬ 
veiller l'exécution du dessin. En ef¬ 


2 ' X t 

3 ' X GEORICI X 

4 ' X X 

5 ' t par: BOSCUS Jean-François X 

6 ' X X 

8 ' 

9 ' 

10 ' 


50 ' DESSIN ET SAUVEGARDE DE LA CARTE 

52 ' 

53 ' 

90 INK4:PAPER6 
100 HIRES :PAPER6:1NK0 
110 CURSET101,2,1 
115 RESTORE 
120 FOR NM TO 278 
130 READ X,Y 
136 DRAW X,Y,1 
140 I1EXT 

145 READXt:IFXt =, X'THEN150 

147 SHOOT :TEXT: PRINT * ERREUR DANS LES 
DATAS JUSQU'A LA* 

148 PRINT’LIGNE NO 328.A VERIFIER !* 

149 STOP 

150 FOR N=279 TO 495 


fet, une seule erreur dans les DA¬ 
TA aurait des conséquences fâ¬ 
cheuses sur le programme machi¬ 
ne. A cet effet, le programme con¬ 
tient quelques points de test des 
DATA. Il se termine par la sauve¬ 
garde sur cassette de la carte avec 
sa routine de transfert. 

-Taper le programe principal et le 
sauver en AUTO. Attention, ce pro¬ 


155 READ X,Y : DRAW X,Y,1 
160 NEXT 

165 READX4:IFXi=*X‘THEN373 
170 SHOOT:TEXT:PRINT:PRINT:PRINT"ERRE 
JR DANS LES DATAS ENTRE LES* 

175 PRINT : PRINT * LIGNES 330 ET 360. A 
VERIFIER " 

180 STOP 

200 DATA-1,1,-2,0,-1,1,-2,0,-1,1,-1,0 
,-3,3,0,2,-1,1,0,3,1,1,0,1,-1,1,0,4 

203 DATA3,3,-1,-1,-2,0,0,2,-4,4,-6,0, 
-3,3,0,1,-2,0,-2,2,0,1,1,1,1,0,3,3,-1 

204 DATA-1,-1,1,-1,0,-1,-1,-2,2,-1,0, 
-2,2,0,-1,-1,-1,-3,0,-1,-1,-3,0,-1,-1 

206 DATA-1,0,-1,1,0,1,-1,-1,0,-2,-1,- 
1 , 0 ,- 1 ,- 1 ,- 1 , 2 ,- 2 ,- 1 ,- 1 ,- 2 , 0 ,- 2 , 2 ,- 1 ,- 
1 

208 DATA-1,0,-2,-2,0,1,2,2,-1,1,1,1,0 
,3,1,1,0,2,1,1,0,10 
300 DATA3,3,-6,0,0,-2,-2,0,0,3,-2,-2, 
-1,1,-1,-1,0,-1,-1,0,-1,1,-1,0,-2,2 
302 DATA-2,-2,0,-1,-1,-1,0,-2,-2,-2,- 
1 , 0 ,- 1 , 1 ,- 2 , 0 ,- 1 , 1 , 0 , 2 ,- 1 , 0 ,- 2 ,- 2 ,- 1,1 
304 DATA-1,0,0,-2,-1,1,-3,0,-1,1,-1,0 
,-1,1,-2,0,-1,1,0,4,3,0,1,-1,2,0,-1,1 
306 DATAI,1,1,0,0,1,-1,1,-1,0,-1,-1,- 
3,0,1,0,0,-3,0,5,0,-1,2,0,2,2,0,2,-1,- 
1 

308 DATA-1,0,-1,1,-3,0,0,1,1,0,3,3,0, 


gramme n'est pas exécutable sans 
la routine machine ! 

- Charger à nouveau la routine ma¬ 
chine et la carte. 

- La sauvegarder à la suite du pro¬ 
gramme principal afin qu'elle puisse 
être chargée par celui-ci (ligne 25). 
Ces deux fichiers constituant l’en¬ 
semble du programme dans sa ver¬ 
sion utilisable. Ouf ! Merci de votre 
patience ! 


2,2,0,0,-1,2,0,2,2,3,0,1,1,0,1,1,1,2,0 
310 DATAI,-1,-1,1,1,1,0,4,0,-2,3,0,0, 
-1,2,0,1,1,0,1,-2,0,1,1,4,0,0,1,1,1,0, 
1 

312 DATA-1,1,0,1,1,1,2,0,1,-1,2,0,3,3 
,-2,-2,-1,0,-2,2,0,1,1,0,1,1,-1,1,0,1 
314 DATA-1,1,0,2,2,2,0,1,1,1,0,4,2,2, 
1,0,2,2,1,0,1,1,1,0,0,-1,1,0,1,1,0,1 
316 DATA-2,2,0,1,2,2,0,4,-1,0,-1,1,0, 
1,-1,1,0,2,1,0,4,4,0,6,1,1,0,1,0,-1 
318 DATA-1,-1,0,-1,-1,-1,0,-2,-3,-3,0 
,9,-1,1,0,6,-1,1,0,2,2,-2,1,1,0,2,1,0 
320 DATA-3,0,0,1,-1,1,0,2,-1,1,0,2,-1 
,1,0,9,-1,1,0,3,-3,3,0,1,-3,3,1,1,1,0 
322 DATAI,1,1,-1,1,1,1,0,1,1,-1,1,0,1 
,-1,1,0,2,2,0,0,-1,1,0,1,1,1,0,1,1,3,0 
324 DATA0,1,1,0,0,1,2,2,0,-1,3,0,3,3, 
0,1,1,0,1,-1,2,0,1,1,1,-1,1,1,4,0,0,-1 
326 DATA-1,-1,1,-1,2,0,1,1,1,0,2,2,2, 
0,2,2,1,-1,1,1,1,0,1,1,-1,1,2,2,1,0,1, 
1 

328 DATAI,0,1,1,1,-1,X 
330 DATA3.0,1,1,1,-1,1,1,1,0,0,-1,1,0 
,1,-1,3,0,2,2,-1,-1,0,-3,-1,-1,0,-7,-1 
332 DATA0,0,-2,1,-1,0,-2,1,-1,0,-1,2, 
-2,3,0,6,-6,3,0,-1,1,1,1,5,0,0,1,1,1,3 
334 DATA0,0,-2,1,0,2,2,0,-3,1,0,1,1,- 
1,1,0,1,1,0,1,1,1,0,6,6,1,0,0,-1,4,0 
336 DATAI,-1,2,0,0,1,2,-2,1,0,0,-2,-1 
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,0,2,-2,0,-2,2,0,1,-1,0,-1.4.-4,1,0 
338 DATA3,-3,1,0,-2,0,1,-1,-1,-1,0,-1 
,2,-2,0,-1,1,-1,0,-2,-7,0,-1,-1,-1,0 
340 DATA-2,-2,0,-2,-1,-1,0,-1,1,-1,0, 
-1,1,-1,0,-1,-1,-1,0,-2,-2,0,-1,-1,0,- 
3 

342 DATA-1,-1,0,-1,1,-1,1,0,1,1,1,-1, 
0,-1,1,-1,0,-1,1,-1,0,-1,-2,-2,0,-3,-2 
344 DATA-2,0,-3,1,0,1,-1,0,-3,-3,-3,0 
,-4,-1,-1,0,-2,-1,-1,-2,0,-3,3,1,1,0,1 
346 DATA-2,2,-1,-1,-1,0,0,-1,1,-1,1,0 
,-1,-!,0,-1,-1,-1,1,-1,0,-2,4,-4,0,-3 
348 DATA4,-4,0,-1,1,-1,0,-3,1,-1,0,-1 
,-2,0,2,-2,0,-1,3,0,0,1,2,0,3,-3,0,-1 
350 DATA-1,-1,0,-8,-1,-1,1,-1,0,-3,1, 
-1,0,-1,1,-1,0,-4,1,-1.0,-1,1,-1,0,-2 
352 DATA2,-2,0,-2,-3,-3,-1,1,-3,0,-2, 
-2,-1,0,-1,1,-3,0,-2,-2,-1,1,-2,-2,0,- 
1 

354 DATA-1,0,0,-2,-2,-2,-2,0,-1,-1,-2 
,2,-1,0,0,-1,-1,0,-1,-1,-2,0,-1,1,-2,- 

2 

356 DATA-1,0,0,-4,-2,0,-3,-3,0,-1,-1, 
-1,1,-1,0,-2,-2,0,-1,1,0,2,-1,1,-1,0,- 
t 

358 DATA-1,-1,1,-1,0,0,-4.-1,-1,0,-3, 
-2,-2,-1,1,-1,0,-1,-1,0,-1,-2,-2,-1,1 
360 DATA-1,-1,0,-1,-1,-1,0,-2,-1,-1,- 
1,0,-2,2,-1,-1,0,-2,-1,0,-1,-1,0,-2,-3 
,-3 

362 DATAX 

363 . 

369 ' -REHPLISSAGE- 

370 ' 

373 X=100.Y=6 

375 DIHTX1200),TY<200):P=POINT(X,Y) 
377 P=NOTP:NX=X:NY=Y:T=0 
380 F-JRNX=NXTO12STEP-1 
332 IFPOINT ( NX, NY > =PTHEN385 

384 NEXTNX 

385 NX=NX+1 

38à HO=rALSE.BA=FALSE 
363 REPEAT 
400 CJR3ETNX,NY,2 
402 IFNY=0THEN4O8 

404 1 POINT’ NX,NY-1 ) =PTHENHO=FALSE : GO 
TC408 

40b IFNOTHOTHENHOMRUE:TX<T) =NX:TY<T) 
=NY-l:T=T+1 
408 1FNY=199THEN420 
410 IFPOINT(NX.NY*1)=PTHENBA=FALSE: GO 
T0420 

415 IFN0TBATHEN8A=TRUE :TX(T)=NX:TY(T) 
=HY+1:T=T+1 

420 NX=NX+1:IFNX>239THENPULL:GOTO430 
425 UNTILPOINT(NX,NY)=P 
430 IFT-OTHENSHOOT.GOTO450 
435 T=T-1 :HX=TX(T):NY=TY<T) 

440 IFPOINT’NX,NY)=PTHENGOT0430ELSEGO 


T0380 

450 CURSET170,167,0:FILL8,1,5:CURSET1 
60,180,0:FILL10,1,5 

461 REH 

462 REH. 

479 REH 

480 REH-AFFICHAGE DE "SCORE’- 

481 * 

482 CURSET8,10,0 

483 FOR NM TO 5 

485 CURHOV 6,0,0:READ S4:CHAR ASC(Si) 
,0,1:NEXT 

490 DATA S,C,0,R,E 

495 CÜRSET3,6,0:FILL15,1,20:CURSET8,6 
,0:FILL15,l,r 

500 GURSET75,6,0:FILL15,1,22:CUR£ET80 
.6,0 :FILL15,1,0 

521 REH—. 

522 REH - DRAPEAU - 

559 REH 

560 CURSET155.8.1 :FILL24,1,20 
562 CURSCT167,6,1:FILL24,1,23 
564 CURSET179,8,1 FILL24,1,17 

566 CURSET191,6,1 :FILL24,1,22 

567 REH. 

568 REH - FLEUVES - 

569 ’ 

600 CURSET72,38,0:FORN=1T043:READX,Y: 
DRAÏX,Y,0:NEXT:' SEINE 
610 CURSET100,53,0:FORN=1T030:READX,Y 
:DRAÏX,Y,0:NEXT: 7 ' HARNE 
62C CURSET4 4,86,0:FORN=1T082:READX,Y : 
DRAÏX,Y,0:NEXT:' LOIRE 
63C CURSET107,93,0:FORN=1T030:READX,Y 
DRAïX,Y,0 NEXT:'ALLIER 
640 CURSET147,110,0:FORN=1T035:READX, 
Y DRAïX,Y,0 :NEXT: RHONE 
650 CURSET129,168,0:FORN=lTO4:READX,Y 
.DRAÏX,Y,0:NEXT 

660 CURSET55,125,0:FORN=1T048:READX,Y 
:DRAÏX,Y,0:NEXT:' GARONNE 
670 CURSET62,139,0:FOftN=1T038:READX,Y 
:DRAÏX,Y,0:NEXT:' DORDOGNE 
680 CURSET57,128,0:DRAÏO,1.0 :DRAÏ1,0, 
0 :DRAÏO,1,0:CURSET18,71,0 
690 CURSET137,173,1 
700 DATA2,0,0,1,3,0,2,-2,1,1,0,2,1,0, 
1,-1,0,-1,0,1,1,0,1,-1,1,1,0,1,2,2,1,0 
705 DftTAO", 1,1,0,3,3,0,1,1,1,2,0,3,3,1 
,9,0,?,4,4,0,1*,*1,1',2,0,4,4,2,0,1,-1,1 
710 DATAO,1,-1,2,0,2,2,0,1,5,5,0,2,3, 
3,0,r,1,1,0,4,1.-1,2,0,0,-1,1,0,2,-2 
715 DATA4,0,2,-2,1,0,1.-1,2,0,1,1,1,0 
,1,1,1,0,4,4,0,1,1,1,0,1,2,2,1,0,3,3,0 
,1 

720 DATAI,1,0,1,1,1,0,2,1,1,0,3,1,1,0 
, 1 , 2 , 2 , 1 , 0 , 1 , 1 , 2 ,- 2 , 1 , 0 , 1 ,- 1 , 1 , 0 , 1,-1 
725 DATA2,0,1,-1,1,0,1,1,3,0,1,1,2,0, 
3,3,1,0,1,1,1,-1,2,0,4,-4,1,0,1,-1,2,0 


' 730 DATAI,-1,1,0,1,-1,1,0,2,-2,0,-1,1 
,-1,0,-1,3,-3,0,-1,1,-1,1,0,1,1,1,0,1, 
1 

. 735 DATAI,0,2,2,1,0,2,2,0,1,2,2,0,3,1 
,1,0,3,1,1,0,7,3,3,0,1,1,1,0,1,1,1,0,4 
740 DATAI,1,0,3,1,1,0,4,-2,2,0,1,-1,1 
,0,2,1,1,0,2,1,1,0,3,1,1,0,4,1,0,1,1 
745 DATAO,1,1,1,0,1,1,1,0,2,1,1,0,1,2 
,2,0,2,-1,0,1,0,2,2,1,0,3,3,0,2,1,0 
750 DATAO,2,2,2,1,0,1,1,1,0,0,3,1,1,0 
,6,-1,1,0,1,1,1,0,2,1,1,0,3,1,1,0,4,-1 
,1 

755 DATAO,I,-1,1,O,1,-1,1,0,5,2,2,1,- 
1,-3,3,-1,0,0,2,1,1,-1,1,0,6,-1,1 
760 DATA-2,-2,0,-1,-2,-2,-2,2,-1,-l,- 
1,1,-2,0,-1,1,0,3,-1,1,0,5,1,1,0,5,1,1 
765 DATAO,4,-1,1,0,5,-1,1,0,6,1,1,0,3 
,1,1,0,3,-2,2,0,4,1,1,0,1,3,3,-1,1 
770 DATAO,2,-1.1,1,1,0,2,1,1,0,1,2,2, 
0,3,1,1.0,1,1.1,O,1,1,1,0,3,1,1,0,1 
775 DATAI,1,0,1,1,1,1,0,1,1,1,0,3,3,0 
,1:1,1,0,1,1,1,2,0,2,2,1,0,1,1,1,0,4,4 
780 DATAO,I,1,1,0,1,1,1,0,1,2,2,0,1,- 
1,1,0,1,-1,1,0,2,-1,1,O,1,-3,3,-2,0.-2 
,2 

785 DATA2,2,0,2,2,2,1,0,1,1,1,0,1,1,2 
,0,1,1,1,-1,5,0,1,1,2,0,1,1,2,0,1,-1 
790 DATAI,0,1,-1,1,1,1,-1,1,0,1,-1,2, 
0 , 0 .- 1 , 1 ,- 1 , 0 ,- 1 , 1 ,- 1 , 0 ,- 1 , 2 ,- 2 , 0,-1 
795 DATAI,-1,1.0,2.-2,0,-1,1,0,1,-1,0 
,-2,!,-l. 1 0,1,1 ,X 

799 '. 

800 ' 

801 ' IHPLANTATION DU PROG. HACHINE 

802 ' 

803 READX4:IFX4 <>'X'THENSHOOT:TEXT:PL 
OT2,12,"ERREUR DANS LES DATAS FLEUVES* 
810 F0RNMûFABT0i6FP:READA«:X=VALCI 
"♦AU :POKEN,X:NEXT 

830 DATAA9.B6,8D,F5,C2,A9,6F,8D,F6,02 
,60,AO,00,Bl,E9,E6,E9,D0,02,E6,EA,C9,4 
3 

840 DATAF0,1D,C9,53,F0,06,20,12,F4.4C 
,FF,6F,A9,00,85,00,85,02,A9,AO,85,01,A 
9 

850 DATA70.85,03,4G,ED.6F,A9,00,85,00 
.85,02,A9,AO,85,03,A9,70,85,01,A2,24,A 
0 

360 DATA00.B1,00,91,02,88,DO,F9,E6,ûl 
,E6,03,CA,DO,FO,60 
900 CALLI6FAB:'DOKEI2F5,I6FAB 
910 'S: sauvegarde de la carte en 170 
C0-I8F40 

999 '. 

1000 SAUVEGARDE DE LA CARTE ET DE LA 
ROUTINE C SUR K7 

1001 ' 

1002 TEXT 

1003 PRINT’PRINT:PRINT* PREPAREZ VOT 
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RE MAGNETOPNONE PUIS' 

1005 PLOT2,12,'TAPEZ UNE TOUCHE POUR 
SAUVER LA CARTE" 

1007 REPEAT:R$=KEY*:UNTILRt <>”“ 

1020 C5AVE"CAMliilByTlHiï' .Ai6FAB,EI8F 
40, AUTO# 

Listing 2- 


1 » t=========================4 

2 ‘ t t 

3 ' i G E O R I C t 

4 ' t par: . t 

5 ' t t 

6 ' t Jean-François BOSCUS t 

7 ' t t 

8 ' t t 

9 ' t t 

12 ' 

20 HIMEHI6FAA 
25 'LOAD'CARTE.BIN* 


30 TEXT:CLS: 1NK2:PAPERO:POKE618,10 
35 GOSUB1300:'en-tete 
40 PLOT3,13,"VOULEZ-VOUS DES INSTRUCT 
IONS 0 C/N* 

45 GETRi: IFRI="O"THENGOSUB1500 :GOT050 
: ' Instructions 

47 ,FRI O"N’THENPLOTl0,24,"répondez p 
ar O ou N":G0T045 
50 DI«Vi<151),X(151),Y(151) 
oO GOSUB4000: début de partie 
<J0 1 NK 4 : PAPER6 
95 DOKEI2F5.I6FB6 

100 H1RES:!C:POKE618,10:CLS:DOKEI2F5, 

«400 

103 POKE40960,22 :POKE41000,22 
105 CURSET170,167,0:FILL8,1,5:CURSET1 
60,180,0:FILL10,1,5 
110 PRINT'Patientez un peu s.v.p." 

112 GOSUB8520:'hymne 
115 POKE782,64:DOKE»306,65535 
120 IFRE=0THENGOSUB4300:G0T0210 :'char 
gement des villes 

122 GOSUBIOOO:'chargement des villes 
par région 

125 CURSETI84,168,0:HI="REGION" 

127 FOR1=1T06:CHARASC(MIDI(HI,J,1)),0 
,1 :CURMOV6,0,0:HEXT 
130 ONREGOTO140,145,150,155,160,165 
140 HI 1 "SUD-OUEST":GOTO170 
145 MI='CENTRE-OUEST’:GOT0170 
150 111="NORD-OUEST ":G0T0170 
155 HI=*NORD-EST":GOTO170 
160 NI="CENTRE-EST":GOTO170 
165 NI="SUD-EST":GOTO170 
170 X=LENI NI):CURSET166+1NT < <12-X)*31 
,180,0 


175 FORJ=1TOX:CHARASC(HID$(Mt,J,l)),0 
,1 CURM0V6,0,0:NEXT 
210 IFOP= 0 THENGOSUB5 200 
215 ONNGOTO220,230,240,250.400,270 
220 MI=*NIVEAU l":GOTO260 
230 Mt="NIVEAU 2" :GOTO260 
240 HI=*N1VEAU 3VGOTO260 
250 Mt="NIVEAU 4" 

260 CURSET182,168,0 : FORJ=1T08:CHARASC 
(HIDKHI, J,ll ), 0,1 : CURMOV6,0,0: NEXT 
265 GOT0400 

27C CURSET178,168.0 :M»="CENTRALES" 

280 FORJ=1T09:CHARASC(MIDI(114,J, 1 )),0 
,1 :CURM0V6,0,0:NEXT 
290 CURSET175,180,0:M$="NUCLEAIRES" 
300 FORJ=ITO10:CHARASC(HIDI(HI,1,1)1, 
0,1 :CURMOV6,0,0:NEXT 
400 SC4="000":CLS 

497 '. 

498 RENUMEROTATION DES VILLES 

499 ' 

5G0 FOR L=DE TO FI 

510 VML-(DE-l) )=V4(L) :X(L-(DE-1) )=X( 
L): Y(L-(DE-1))=Y(L > 

520 NEXT 

567 '. 

600 REM-MELANGE DES VILLES: 

601 : 

603 COUP=0:X=166 :Y=56 
605 ES=0:CO=CO+1 

610 IF CO=l1THENCLS: PRINT :PRINT'Tapei 
une touche"iGETRIIGOT03700:'fin de pa 
rtie 

615 FOR 1=1 TO 12 
620 R= INT(RND( 1 )*(FI+1-DE))+1 
630 S=INT(RND(1)*(FI+1-DE))+1 
640 IF S=R THEN 630 

645 REM-MELANGE. 

650 TI=V$(R):V4(R)=VI(S):VI(S)=TI 
660 A=X(R):X(R)=X(S):X1S)=A 
670 B=Y(R):Y(R)=Y(S):Y(S)=B 
672 NEXT 

675 REH..-—.- 

677 ' TIRAGE DES VILLES A PROPOSER 

678 ' 

680 «=l:u=o 

690 REPEAT 
695 U=U+1 

697 FOR P=1 TO LEN(LI) STEP 4 
700 IF MIDMVKU),1,4)=HIDI(Li,P,4) T 
HEN 695 
708 NEXT 

710 IF U>9 THEN CLS:GOTO610 ELSE U$=S 
TR*(U) 

715 IF0P=1THEN725:'option 2 
720 PRINT U;V*(U);" "1 
722 U<V)=U 

725 QI(N)=UI+VI(U):N=N+1:UNTIL 11=5 

726 P0KE782,192:DOKE#306,10000 


728 H=INT(RND(1)IU)+1 
730 FOR P=1 TO LEN(LI) STEP4 
732 IF HIDtIVKH) ,1,4)=MIDI(LI,P,4) T 
HEN 728 

745 NEXT:CURSET X(H),Y(H),1:L$=LI+HID 
I(VKH), 1,4) 

747 IFOPMTHEN5000: 'OPTION 2 

750 GOSUB 3000:REM-CLIGNOTEMENT VILLE 

760 ESSAI=ES+1 

770 IF VAL(CHI>=H THEN ON ES GOTO 310 
0,3200ELSEZAP 

780 1 FES= 2THENES=3 : PRINT : PRINT*DESOLE 
.voici une autre vi1le"ELSEGOT0785 

781 GOSUB3500l'affiche la ville 

782 GOSUB13000 

783 GOSUB5200:'efface la pile 

784 GOT0605:'viI le suivante 

785 IFTE >0THENGOSUB5200:PRINT : PRI NT"D 
ESOLE.teups écoulé,réponse pour 2 pts" 

:GOT0800 

79C PRINT:PRINT"FAUX,donnez une demi 
ere réponse" 

8C0 FOR «=1 TO 4 : PRINT OKU);" "::NE 
XT:GOTO 750 

999 '. 

1000 ' SELECTION PAR REGION 

1001 ' 

1005 RI=0:R2=19:R3=38:R4=63:R5=87:R6= 
108 

1010 FOR;=1T0130:READX1,Y1,VII 
1020 IFXI<101ANDY1>128THENR1=R1+1ELSE 
GOTO1040 

1030 VMRl )=VIt :X(R1 )=X1 :Y(R1 )=Y1 :GOT 
01130 

1040 IFX1<101ANDY1<129ANDY1>72THENR2= 
R2+1ELSEGOT01060 

1050 V*(R2)=VI* :X(R2)=X1:Y(R2)=Y1:GOT 
01130 

1060 IFX1<101ANDY1<73THENR3=R3+1ELSEG 
OTO1080 

1070 V* <R3)=VI* : X(R3)=X1: Y(R3)=Y1:GOT 
01130 

1080 IFX1>100ANDY1<73THENR4=R4+1ELSEG 
OTOllOO 

1090 VI(R4)=VII:X(R4)=X1:Y(R4)=Y1:G0T 
01130 

1100 IFX1)IOOANDY1<129ANDY1>72THENR5= 
R5+1ELSEGOT01120 

1110 Vi(R5)=VII:X(R5)=X1:Y(R5)=Y1:GOT 
01130 

1120 R6=R6+1:VI(R6)=VII:X(R6)=X1:Y(R6 
)=Y1 

1130 NEXT 

1140 ONREGOTO1150,1160,1170,1180,1190 
,1200 

1150 DEBUT=1: FIN=19 :RETURN 
1160 DEBUT=20:FIN=38:RETURN 
1170 DEBUT=39:F1N=63:RETURN 
1180 DEBUT=64:FIN=87:RETURN 
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1190 DEBUT=88:FIN=108 :RETURN 
1200 DEBUT= 109 :FIN= 130: RETURN 

1298 '. 

1299 ' EN-TETE 

1300 ' 

1310 PL0T11,1,5:PL0T15,1 ,*««**«* 
1320 PL0T11,6,5:PLOT15,6 ,•tttttttV 
1325 PLOT 14,2,"* t*:PLOT14,5,* 

t t* 

1330 PLOT15,3,14:PLOT16,3,’GEORIC’: PL 
OT22,3,8 

1340 PLOT14,4,14:PLOT16,4,*GEORIC*:PL 
OT22,4.8 

1345 PL0T13,3,’t":PLOT24,3,’t’:PLOT13 
,4,“t*:PLOT24,4,’J* 

1390 RETURN 

1497 '. 

1498 ' - INSTRUCTIONS 

1499 ' 

1500 CLS: PRINT : PRINT : PRINT :INK1 

1510 PRINT" GEORIC va vous proposer 
2 options" 

1520 PRINT'de jeu.":PRINT:PRINT" 1 
- vous donnerei simplement le" 

1530 PRINT’numero se trouvant devant 
le non de’ 

1533 PRINT*la ville choisie. Attentio 
n, xotre" 

1535 PRINT"te«ps de reflexion est lu 
ite." 

1540 PRINT:PRINT’ 2 - vous taperei 
les 4 premières’ 

1550 PRINT"1 et très de la ville. Pour 
les villes’ 

1555 PRINT’de 3 lettres tapez un espa 
ce en guise’:PRINT’de 4eme lettre* 

1560 PRINT’ Il vous sera possible d 
'ut iliser" 

1565 PRINT’'DEL' en cas d'erreur de f 
rappe." 

1570 PRINT’ 'SAINT' dans certains n 
oms devra" 

1575 PRINT’etre tape: ST suivi d'un e 
space” 

1560 PRINT’puis du no».’ 

1598 PRINT:PRINT:PRINT’ Tapez su 
r une touche..." 

1600 GETZi:CLS 

1610 PRINT : PRINT : PRI NT * GEORIC va e 
gaiement vous proposer 6":PRlNT’niveau 
x de jeu.’ 

1620 PRINT:PRINT" Au niveau 5, la c 
arte sera decoupee’ 

1630 PRINT'en 6 régions. GEORIC ne vo 
us proposera’ 

1640 PRINT’alors que des villes situe 
es dans une" 

1650 PRINT’region tiree au hasard.’ 
1660 PRINT:PRINT* Au niveau 6, cert 


aines centrales ’ 

1670 PRINT’nucleaires ne sont, actuel 
le»ent,*:PRINT’qu'en construction.* 
1672 PRINT:PRINT* Dans tous les cas 
, la partie se’ 

1674 PRINT"joue en 10 villes. SCORE ■ 
axi: 50 pts.* 

1700 PRINT:PRINT:PRINT’Bon, ce n'est 
pas tout, au TRAVAIL !* 

1710 PRINT:PRINT:PRINT* Tapez su 
r une touche...’ 

1720 GETZt:RETURN 

2999 REH.. 

3000 REH tCLIGNOTEHENT DES VILLESt 

3001 : 

3005 IFN=5THENV=45ELSEV=30 
3010 CIRCLE 1,1 : VAITV :GOSUB5100 
3020 CIRCLE 1,0 :VAITV :GOSUB5100 :'e»pi 
lage 

• 3030 CHf=KEYt: REM-CHOIX DE LA VILLE 

3035 K=VAL(CHti 

3040 IFK=0THEN3010 

3041 IFK-UI1)ORK=U(2)0RK=U(3)0RK=U(4) 
THEN3042ELSE3010 

3042 GOSUB5200:'effacement de la pile 
3050 RETURN 

3090 REH—. 

3093 ' 1ERE REPONSE JUSTE 

3094 ' 

3100 B=0: GOSUB 3620 :SC=SC+5:CIRCLE1,1 
3110 PING :PRINT PRINT’BRAVO,vous marq 
uez 5 points" 

3120 GOSUB 3500 :GOTO605 

31’0 REM-- 

3193 ’ 2EKE OU 3EHE REPONSE JUSTE 
3195 ' 

3200 B=0:GOSUB 3620:SC=SC+2:CIRCLE1,0 
3210 PING :PRINT:PRINT’BIEN,vous »arqu 
ez 2 points’ 

3220 GOSUB 3500:GOTO 605 

3290 REH. 

3293 ' 2EME REPONSE JUSTE OPTION 2 
3295 ' 

3300 B=0:GOSUB 3620:SC=SCe3:CIRCLEl,0 
3310 PING: PRINT : PRINT * OUI. vous »arqu 
ez 3 points" 

3320 GOSUB 3500:GOTO 605 

3499 .-. 

3500 REM-AFFICHAGE DU SCORE ET DE LA 
VILLE TROUVEE- 

3501 : 

35C3 IFG=1THENK=0:G0T03510 
3505 G=1:K=1 
3510 CURSET X,Y,K 
3520 FOR M=1 TO LEN(Vt(H)) 

3525 CURHOV 6,0,0 

3530 CHAR ASC(MIDI(Vi(H),M.1)),0,1 

3540 NEXTY=Y+10 


3559 : 

3600 REM-AFFICHAGE DU SCORE- 

3601 1 

3610 SCI=STRI(SC):B=1 
3620 CURSET 50,10,0 
3630 FOR H=2 TO LEN(SCl) 

3640 CHAR ASCfMIDKSCI,H, 1 )),0,B 
3650 CURHOV 6,0,0 

3660 NEXT:CURSET XIH),Y(H),0:RETURN 

3699 REH-. 

3700 REM t FIN DE PARTIE t 

3701 REH . 

3702 : 

3705 TEXT:POKE48036,0 :POKE618,10 
3710 CLS:SCI=STR*(SC):PAPER0:INK3 

3715 PLOT*? ,4.10: PLOT 15,4, ’G E O R I C 

3716 PLOT2,3,10:PLOT3,3,*. 

GEORIC . 

3720 PLOT2,8,’ VOTRE NOTE EST : ’ +CHRI ( 1 
i*SCt+CHRt<6)+*SUR 50 PTS* 

3730 IF SC<40 THEN PLOT 10,13.CHRK12 
!»’IL VOUS FAUT REVISER !* 

3740 IF SC>39 AND SC<47 THEN PLOT 2,1 
2,'TRES BIEN, VOUS POUVEZ’ ELSE G0T037 
60 

3750 PLOT 10,14,"PASSER AU NIVEAU SUI 
VANT* 

3760 IF SC)46 THEN PLOT 2,13,‘BRAVO, 
VOUS ETES TRES FORT 1 ’ 

3770 PLOT 7,18,‘VOULEZ VOUS REJOUER ? 

a 

3780 PLOT20.20,-tapez O pour OUI’ 

3782 PLOT20,21,* N pour NON’ 

3800 R!=KEYt : IF Ri=*’ THEN 3800 
3310 IFRI=*O*THENRUN50 
2820 IFRt=’N’THENCLSELSEGOTO3850 
3830 PLOT 14,11,CHRI(3)+CHR*(14) + ’AU R 
EVOIR" 

3840 PLOT14,l2,CHRt(1)+CHRt(14>+*AU R 
EVOIR...’ 

3E42 DOKEI1B.IC971 :ENl' 

3850 FLOT7,24,"Tapez correctement <0 
ou N>*:GOTO 3800 
3860 END 

3999 REM-.— 

4000 REM t DEBUT DE PARTIE t 

4001 REM . 

4002 REH: 

4003 CLS:INK6:PAPERO:POKE48036,0 

4004 GOSUB1300 

4005 PLOTS,10,'CHOISISSEZ UNE OPTION: 

fl 

4010 PLOT2,15,“1 - VOUS CHOISISSEZ PA 
RHI 4 VILLES* 

4015 PL0T2,19,"2 - VOUS DONNEZ LE NOM 
DE LA VILLE* 

4017 PLOT2,23,*3 - INSTRUCTIONS’ 
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4020 GETZ»:X=VAL(Z»):IFX=1THEN4028 

4022 IFX=2THENOP=l:GOTO4028 

4024 IFX=3THENG0SUB1500 :GOT04003:'ins 


truetions 

4026 PL0T12,26,‘Réponde! par 1 ou 2 o 
u 3“:GOT04020 


4028 CLS:GOSUB1300:PLOT3,8,‘A quel ni 
veau voulez-vous jouer ?" 

4030 PL0T3.il, "Tapez 1 pour GRANDES V 


ILLES’ 

4032 PLOT3.14," 

INS GRANDES" 

4034 PL0T3,17," 

INS CONNUES" 

4036 PL0T3,20," 

ECTURES" 

4037 PL0T3.23," 

NS UNE REGION" 

4038 PLOT3,26," 

NUCLEAIRES" 

4039 A=1:B=2:C=5:D=3:E=4:F=7 

4040 REPEAT:T=F:F=A:A=B:B=C:C=D:D=E:E 
=T 

4042 PLOT8,11 ,CHR$<A) :PLOT2,14,CHR4(B 


2 pour VILLES HO 

3 pour VILLES HO 

4 pour SOUS-PREF 

5 pour VILLES DA 

6 pour CENTRALES 


4044 PL0T2,17, CHRI ( C ) : PLOT2,20, CHR* ( D 

) 

4046 PLOT2,23,CHR»(E1 :PLOT2,26,CHR» (F 

) 

4050 X»=KEY»:VAIT20 
4060 UNTIL X»0"":N=VAL(X») 

4070 IF N<1 OR N>6 THEN 4040 
4080 IF N-l THEN DEBUT=1:FIN=32 

4090 IF N=2 THEN DEBUT=33:FIN=64 

4100 IF N=3 THEN DEBUT=65:FIN=96 

4110 IF N=4 THEN DEBUT=97:FIN=130 

4120 IF N=5 THEN RE=INT(RND(1)*6)+1 

4130 1F N-6 THEN DEBUT=131:FIN=151 

4295 RETURN 

4296 REH. 

4297 ' CHARGERENT DES VILLES ET CENTR 
ALES 

4298 ' 

4300 RESTORE 

4305 FOR 1=1 TOI51 

4310 READ X(J),Y(J),V»(J) 

4330 NEXT 
4340 RETURN 

4389 '. 

4390 REH - VILLES DU NIVEAU 1 - 

4391 REH: 

4400 DATA 99,51,PARIS,15,56,BREST,140 
,176,HARSEILLE,166,56,STRASBOURG 
4405 DATA 131,121.LYON,49,88,NANTES,6 
0,142,BORDEAUX.167,166,NICE,110,13,LIL 
LE 

4410 DATA 87,170,TOULOUSE,146,55,NANC 
Y,73,37,LE HAVRE,108,122,CLERHONT-F 


4415 DATA 92,70,ORLEANS,107,190,PERPI 
GNAN,48,67,RENNES 

4430 DATA85,40.ROUEN,145,46,HETZ,144, 
88, BESANCON ,108,93, NEVERS 
4435 DATA133,162,AVIGNON,113,76,AUXER 
RE,125,128,ST ETIENNE,143,134,GRENOBLE 
4440 DATA147,181,TOULON,132,87,DIJON, 
56,113,LA ROCHELLE,85,119,LIHOGES 

4445 DATA67,177,TARBES,119,169,HONTPE 
HIER,78,84,TOURS,66,45,CAEN 

4446 REH- 

4448 REH - VILLES DU NIVEAU 2 - 

4449 REH: 

4455 DATA61,175,PAU ,102,155,RODEZ,99 
,92,BOURGES,19,68.QUIHPER,74,104,POITI 
ERS 

4460 DATA78,136,PERIGUEUX,75,156,AGEN 
,89,97,CHATEAUROUX,132,140,VALENCE 
4465 DATA147,118,ANNECY,111,I03,HOULI 
NS,131,98,CHAL0N S/S,62,83,ANGERS 
4470 DATAI04,21,ARRAS,119,43,REIHS,12 
1,66,TROYES 

4480 DATA89,11,BOUL.S/HER,123,50,CHAL 
0NS S/H,161,69,COLHAR,106,59,HELUN 
4485 DATA52,34,CHERBOURG,35,57,ST BRI 
EUC,72,69,LE HANS,110,175,BEZIERS 
4490 DATA101,140,AURILLAC,86,154,CAHO 
RS,73,167,AUCH,49,171,BAYONNE,89,184,F 
OIX 

4495 DATA156,78,BELFORT,89,60,CHARTRE 
S,126,164,NIHES 

4500 REH. 

4503 REH- VILLES DU NIVEAU 3 - 

4504 REH . 

4505 DATA73,124,ANGOULEHE,150,67,EPIN 
AL,99,29,AHIENS,47,58,ST HALO 

4510 DATA60,162.HONT DE HAR,149,148,G 
AP ,145,126,CHAMBERY,130,109,HACON 
4515 DATA87,80,BLOIS,85,49,EVREUX,100 
,4.DUNKERQUE,110,23,CAHBRAI 
452C DATA128,144,PRIVAS,115,150,HENDE 
,92,133,TULLE,93,112,GUERET 
4530 DA1A128,32,CHARLEV.HEZ,151,158,0 
IGNE,136,111,BOURG EN BR 
4535 DATAI39,101,LONS L/SAUN,115,37,L 
AON,58,45,ST LO,64,107,NIORT 
4540 DATA85,148,GOURDON,96,163,ALBI,1 
34,69,CHAUHONT,35,77,VANNES 
4545 DATAS 1,190,LA ROCHE/YO.85,161,HO 
NTAUBAN,133,52,BAR LE DUC 
4550 DATA146,78,VESOUL,71,59,ALENÇON 

4598 - 

4599 ' SOUS-PREFECTURES 

4600 ’ 

4610 DATA54,56,AVRANCHES,70,53,ARGENT 
AN,103,16,BETHUNE,167,47,«ISSEHBOURG 
4612 DATAI 59,54,SAVERNE,161,77,HULHOU 


SE,118,84,AVALLON,118,93,CHATEAU CHI 
4614 DATA104.71,HONTARGIS,61,124,SAIN 
TES,63,98,BRESSUIRE,33,68,PONTIVY 
4616 DATA45,77,REDON,56,62,FOUGERES,6 
8,89,SAUMUR,98,117,AUBU5S0N 
4618 DATAI 10,140,ST FLOUR,142,122.BEL 
LEY,145,163,FORCALQUIER,107,179,NARBON 
NE 

4620 DATA116,1.61,LE V1GAN,94,152,FIGE 
AC,108,160,HILLAU,74,143,BERGERAC 
4622 DATA53,166,DAX ,102,45,SENL1S,11 
0,42,SOISSONS,86,30,DIEPPE 
4624 DATA93,27,ABBEVILLE,110,31,ST OU 
ENTIN,111,48,CHATEAU-THI 
4626 DATA154,171,DRAGUIGNAN,63,147,LA 
NGON,112,115,VICHY 

4638 '- 

4639 ' - CENTRALES NUCLEAIRE - 

4640 ' 

4642 DATA96,4,GRAVELINES,87,28,PENLY, 
77,32, PALUEL, 50,37, FLAHANV ILLE 
4644 DATAI 15,62,NOGENT S/SE,146,39,CA 
ÎTENOH,165,73,FESSENHIEH 
4646 DATA98,75,DAHPIERRE,103,84,BELLE 
VILLE,73,90,CHINON,137,120,BUGEY 
4648 DATA 140,122,CREYS-HALVI,131,131, 
ST ALBAN,132,147,CRUAS 
4650 DATA131,158,TR1CASTIN,59,132,BLrt 
YA1S.78,159.GOLFECH 
4652 DATA90,77,ST LAURENT,131,164,PHE 
NIX,129,25,CHOOZ,22,60,HONTS D'ARR 

4999 ... 

5000 ' OPTION 2 

5001 ' 

5003 POKE618.il 

5005 NH»="":PRINT'Donnez les 4 pre. 1 
ettres de la ville:" 

5010 CIROLE1,1 :VÀIT20:GOSUB5020 
5015 CIRCLE1,0 : WAIT20:GOSUB5020 
5017 GOT05010 

5020 LE»=KEY»:IFLE*=*"THENRETURNELSEP 
OP 

5021 Z=LEN(N«»):IFZ=OANDASC(LE»)=1270 
RZ=OANDASC(LE*)=32THEN5010 

5022 IFASC(LEO=127THENNH*=LEFT*(NH», 
Z-l ) :PRINTCHR»(13) :CHR*( 14) :NH*: :GOT05 

010 

5025 IFASCILE*»64ANDASC(LE»K910RASC 
iLE*)=32THEN5030ELSEGOT05010 
5030 NH*=NH*+LE*:Z=LEN(NH») :PRINTLE* 

:IFZ<4THEN5010 

5040 ESSAI=ES+1:IFNH*=LEFT*<V*(H),4)T 
HENPRINT :0NESG0T03100,3300,3200 
5045 IFES= 3THENES= 2 : PR1 NT :GOTO780 
5050 ZAP : PRI NT : PRINT" FAUX essayez en 
core pour"'4-ES;"points" 

5060 NH»="":GOT05010 

5100 'TEMPS DE REPONSE 

5110 P0KE47923-TEI40,125:TE=TE+1:IFTE 
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=70THENPOP 
5120 RETURN 

5199 '--- 

5200 ' - EFFACEMENT DE LA PILE - 

5201 ' 

5210 IFOP^ITHENRETURN:'option 2 
5220 CURSET15,105,3 : FILL70,1,5 : CITRSET 
32,105,3 :FILL70,1,0 
5230 CURSET20,105,3 :FILL70,1,19 :CURSE 
T26,105,3.-FILL70,1,22 
5240 TE=0:CURSETX<H),Y(H),0:RETURN 
8400 - 

8500 '. 

8505 ' - HYMNE - 
8510 ' 

8515 POKE618,3 

8520 MUS1C1,3,1,10:WAIT20:GOSUB9000: H 
USIC1,3,1,10 : WA IT20:GOSUB9000 
8530 NUSIC1,3,1,10:HAIT20:NUSIC1,3,6, 
10 : WAIT40 : GOSUB9000 : HIJSIC1,3,6,10: NAIT 
40 

8540 MUSIC1,3,8,10:WAIT40:GOSUB9000: H 
USIC1,3,8,10:VA1T40:NUSIC1,4,1,10:KAIT 
60 

8560 MUSIC1,3,10,10:WAIT20:NUSIC1,3,6 


,10 :WAIT20:GOSUB9000:MUSIC1,3,6,10:VAI 
T20 

3570 MUSIC1,3,10,10: WAIT20 :ffUSICl ,3,6 
, 10 : VAIT20: MUSICI,3,3,10:VAIT30 
8580 MUS1C1,3,11,10 : VAIT80 : HU5IC1,3,8 
,10:VAIT30:MUSIC1,3,5,10:VAITI5 
85<?0 MUSIC1,3,6,10:VAIT15 
8600 PLAYO,0,0,0:POKE618,10 
8610 RETURN 

9000 NUSIC1,1,1,1:VAIT4:RETURN 

9100 '--- 

10000 ' MUSIQUE EMPRUNTEE PAR LE FILM 
11000 ' BARRY LINDON 

13000 '.. 

13800 Ml*=‘33033311133033321133113303 
440444" 

13850 H2♦=’0606010805051110081010011I 
080801* 

13950 H3$="88188888888188888888888818 
881880* 

14050 M4*=*33033300033033300333033302 
330033* 

14100 M5(-*03030105020201010106060108 
050501* 

14200 H6<="88188811199188611888188818 


881188" 

14300 M7$=*22002200033003300333043300 
120033* 

14400 M8$=*01011111010105050101011010 
010II0* 

14450 H9<=*88118811188118811888188811 
891188* 

14550 H0f=*22112111122112111122112211 
221121 * 

14600 N=1 

14650 F0RM=1T015:M1=VAL(HID*(M11,H,1) 
):H2=VAL(HID«(M2*,N,21) 

14700 M3=VAL(MID«(H3«,M,D) :H4=VAL(MI 
D*(H44,M,1)):M5=VAL(HIDi(M5«,N,2)) 
14750 H6=VALIHID»(H64,M,1)):H7=VAL(MI 
D»(M7i,H,l )):M8=VAL(MIDI(M84,N,2)) 
14800 M9=VAL(MID»(H94,N,1)):H0=25*VAL 
(MID»(H0»,M,l)):N=N+2 
14850 HUSIC1,Ml,M2,M3:MUSIC2,M4,H5,M6 
:HUSIC3,M7,M8,H9:PLAY7,0,0,200 :VAITMO 
14900 IFM: 10THENNEJT:PLAYO,0,0,0:RETU 
RN 

14950 PLAY7,0,0,50:NEJT# 


BON DE COMMANDE CLASSEUR (port inclus) 

NOM -Prénom - 

Adresse __ 

Code postal -Ville - 


Je désire recevoir 



[ ] Classeurs) THEORIC : 80 F 

| ] Classeurfs) AM STAR : 60 F 

1 1 Classeur(s) PCompatibles Magazine : 60 F 


i | Classeurs) CPC : 60 F 

| Classeurfs) MEGAHERTZ : 80 F 

Signature 


Ci-Joint chèque de - F au nom des Editions SORACOM - La Haie de Pan - 35170 BRUZ 
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INTERFACE MICRODISC 


Pierre-Alain DOREAU 


I BM ous les possesseurs du lecteur de disquettes Micro- 
dlsc ont pu constater les problèmes avec la liaison cas¬ 
sette qu'il n'est pas possible d'utiliser lorsque le 
lecteur est branché. Voici une Interface simple à réaliser 
(d'un coût d'environ 80 F), qui résout ce défaut. Plus besoin 
de débrancher le lecteur pour que le CLOAO fonctionne ! 


L'interface se branche entre l'ORIC 
et le lecteur ; il n’y a donc pas à ou¬ 
vrir l'ATMOS ou le MICRODISC. 
Son principe est simple (fig. 1) : elle 
détourne le signal d'horloge 02 
pour le renforcer à l'aide d'un 74 LS 
126, puis le renvoie vers le lecteur ; 
on obtient ainsi 3 niveaux d'amplifi¬ 
cation possibles de l'intensité du si¬ 
gnal, en jouant sur les positions 
des inters n° 1, 2, 3 de l'inter DIL 
Si 234 (voir tableau) ; en principe, 
vous n’avez pas à commuter les n° 
2 et 3 pour augmenter l’amplifica¬ 
tion, sauf si celle-ci est insuffisante 
(dans le cas de l'utilisation simulta¬ 
née d'une carte E. S., par exem¬ 
ple). 

On en profite pour ajouter à l'interfa¬ 
ce un poussoir de RESET (S5) qui 
joue le même rôle que celui placé 
derrière le lecteur. Bien pratique ! 
De plus, une LED verte (D) contrôle 
la présence de tension, mais on 
peut aussi la laisser éteinte en met¬ 
tant le contacteur n° 4 de l'inter DIL 
en position OFF. 

La mise sous tension de l'ordina¬ 
teur et du lecteur s'effectue norma¬ 
lement, l'interface étant alimentée 
par l’ORIC lui-même. 


REALISATION 

Décalquer le schéma proposé fig.2 
et reproduire le circuit imprimé. 

Placer les composants sur le circuit 
comme l'indique la fig. 3, en respec¬ 
tant les polarités du condensateur 
C2 et de la LED D, avant de les sou¬ 
der (on peut s'aider de la fig. 4) ; il 
est conseillé de monter le 74 LS 
126 sur un support que l'on soude 
sur le circuit, et de l’enficher dessus 
en respectant la bonne orientation ! 
Souder aussi sur le circuit le con¬ 
necteur 34 broches mâle, en pla¬ 
çant le détrompeur comme indiqué 
sur la fig.3. Ensuite, sertir le connec¬ 
teur femelle sur le câble en nappe, 
puis souder enfin le câble sur le cir¬ 
cuit : attention de ne pas le souder 
à l'envers, c’est-à-dire en inversant 
tous les signaux ! (s'aider de la fig. 
3) ; il faut vérifier qu’un signal par¬ 
tant du bas de l'ORIC se retrouve ef¬ 
fectivement sur la même borne en 
sortie vers le lecteur. 

Une fois l'interface terminée et con¬ 
trôlée, la brancher, basculer les in¬ 
ters n° 1 et n° 4 en position ON, allu¬ 
mer le lecteur et TORIC : la LED doit 
s'allumer et l'ORIC s'initialiser en affi¬ 
chant "INSERT SYSTEM DISK". 
Sinon, revérifiez vos branchements 
et les contacts ! 


FONCTIONNEMENT DE L'INTER DIL SI- 2-3-4 

LED verte 


Inter n° 

Amplification 

1 

2 

3 

Normale 

ON 

OFF 

OFF 

Double 

ON 

ON 

OFF 

Triple 

ON 

ON 

ON 


4 


ON allumée 


OFF éteinte 



LISTE DES COMPOSANTS : 


• Résistance : R = 470 Q 1/4 W 

• Condensateurs : 

-Cl - 100 pFMKT 

- C2 = 10 pF 16 v électrochimique 

• Semi-conducteurs : 

- D = LED verte 03 mm ou 05 mm 
-ICI :74LS 126 

• Divers : 

- 1 support 14 broches 

-Si234 : Quadruple inter DIL (4 
inters) 

- S5 : Inter poussoir pour circuit im¬ 
primé 

-Kl : Connecteur 34 broches mâ¬ 
le, à souder sur circuit 
-K2 : Connecteur 34 broches fe¬ 
melle, à sertir sur câble 
-Câble en nappe de 34 conduc¬ 
teurs (1= 15 cm maximum). 
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Côté composants 



Liste des composants 

Résistance : 

R = 470m/4w 

Condensateurs : 

Cl - 100 pF MKT 
C2 = lOpF 16 v 

(éléctrochimique) 

Semi-conducteurs : 

D = LEO verte 03 mm ou 5 mm 
ICI =74 LS 126 


a» u z x 
~ m > o 

w -o z 
m o 



Divers : 

1 support 14 broches 

S1.2.3.4. : quadruple inter DIL 

S 5 : inter poussoir 

Kl : Connecteur 34 broches mâle 

à souder sur le circuit 

K 2 : Connecteur 34 broches femelle 
à sertir sur le câble 

Câble en nappe de 34 conducteurs (15 cm) 



RESET 


Ov(GND) 


+ 5 v 
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COMMENT UTILISER 
CONVERT DU SEDORIC ? 

L eSEDORICest un système d'exploitation SEDuisant (!) mais on ne peut pas dire 
que son manuel d'utilisation soit un modèle du genre... Nombreux sont ceux qui 
butent sur l'utilitaire CONVERT, permettant de transférer des fichiers provenant 
d'une disquette formatée autrement que par le SEDORIC. Voici comment procéder... ^ 



Nous allons illustrer cet exemple de 
transfert en prenant le cas de la con¬ 
version de fichiers FT-DOS (Jasmin 
de TRAN) en SEDORIC. A ce pro¬ 
pos, il y a lieu de signaler un petit 
bug, mis en évidence par l'oeil averti 
de certains utilisateurs, lors de la 
conversion de disquettes Jasmin 
sur lesquelles ne figure pas le 
DOS. Le (ou les 2) premier(s) fi¬ 
chiers) de cette disquette ne pour¬ 
ront être récupérés sur la disquette 
SEDORIC, tout simplement ! Pour 
pallier ce défaut, il faudra que cha¬ 
que disquette "Jasmin" sans DOS 
débute avec 1 (ou 2) fichier(s) 
"bidon(s)".... ne servant à rien d'au¬ 
tre qu'à occuper le début du catalo¬ 
gue. 

Pour effectuer le transfert d'une dis¬ 
quette (non protégée) vers le 
SEDORIC, il faut charger 
CONVERT (option 3 du menu d'en¬ 
trée à SEDORIC). 

Pour déplacer la barre en vidéo in¬ 
versée (permettant la sélection 
d'une option), on agit sur la barre 
d'espace de l'ORIC. Pour valider 
une option sélectionnée, on ap¬ 
puie sur RETURN. Pour sortir d'une 
option, on appuie sur ESC. 
Commençons par sélectionner les 
lecteurs, ceci bien entendu si vous 
possédez plus d'un drive. On dési¬ 
gne (barre Espace) le lecteur sour¬ 
ce, qui s'affiche en inverse, et on va¬ 
lide par RETURN. Même chose 


pour le lecteur destination (cible). 
On sort alors par ESC. 

Ensuite, il convient d'initialiser (si 
elle ne l’est pas déjà) la disquette 
"cible", en la formatant si besoin 
est. 

On choisira alors la version du DOS. 
toujours au moyen des touches 
ESPACE, RETURN et ESC pour 
revenir au menu. "VI-1 ou XL- 
DOS" s'affiche en premier ; en ap¬ 
puyant sur ESPACE on voit apparaî¬ 
tre "T DOS ou FT DOS". 


On peut alors envisager la conver¬ 
sion des fichiers. La disquette Jas¬ 
min étant en place (dans le drive A, 
par exemple) on sélectionne "con¬ 
vertir les fichiers" et on voit apparaî¬ 
tre l'écran du programme de conver¬ 
sion. Il faut alors appuyer sur DEL 
pour obtenir le catalogue. Le dépla¬ 
cement de la barre en vidéo inverse 
se fera au moyen des touches 
"curseur bas" ou "curseur haut". 
Pour valider la sélection d'un 
fichier, on appuiera sur ESPACE 



et sur RETURN pour lancer le trans¬ 
fert. Un signe + apparaît lorsque 
l'opération est accomplie. Si un 
seul drive est disponible, le change¬ 
ment de disquette sera indiqué par 
un message (notez l'humour méri¬ 
dional !) en bas de l'écran. Avec 2 
drives, c'est le grand luxe et il n'y a 
pas de manipulation de disquette. 

Les opérations sont simples à réali¬ 
ser et on dispose ainsi d’une dis¬ 
quette utilisable sous SEDORIC. 

Pour conclure signalons que, dé¬ 
sormais, à partir de la numéro 15, 
les disquettes THEORIC seront li¬ 
vrées en format FT DOS ou 
SEDORIC. N’oubliez pas de préci¬ 
ser lors de la commande... 
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! MS A VE, 1MLOAD 


C 'est avec le message d'un de nos lecteurs, laissé dans la 
BAL du serveur, qu'est partie l'idée de rédiger ces quelques 
lignes. Un vice caché du FT DOS ou une "omission" dans 
son manuel-utilisateur est certainement à l'origine de bien des 
nuits blanches... 


L'ATMOS avec ses STORE et RECALL, offre la 
possibilité de sauvegarder des tableaux ou des 
matrices, ce qui facilite grandement la gestion de 
petits fichiers. Rappelez-vous, le programme 
"MOTLONG" du numéro 1 de THEORIC en 
faisait usage pour son dictionnaire... 

Le FT-DOS de TRAN offre une possibilité 
équivalente, avec MSAVE et MLOAD. La 
syntaxe exacte est : 

IMSAVE "DICO.ARY = D$'' 

DICO est le nom du fichier qui sera 
sauvegardé sur la disquette ; DS 
est la matrice d'origine transfé¬ 
rée dans ce fichier (en fait, ta¬ 
bleau ou matrice...) 


Pour récupérer les données 
de cette matrice, il faudra 
utiliser le MLOAD en res 
pectant syntaxe suivan¬ 
te : 

IMLOAD 

"DICO.ARY = D$" 


ATTENTION, 
CANGER! 


Associé à "LECTMAT" programme de lecture, 
on devait pouvoir récupérer les valeurs de Q$ 
(1) et Q$ (2) soit "AAA" et "BBB" 

10 REM LECTMAT 
20 DIMQS (10) 

30 IMLOAD"TOTO.ARY = Q$" 
40 PRINTQ$(1):PRINTQ$(2) 


Hélas I Point de récupération de nos 
valeurs initiales, mais une initialisa¬ 
tion plutôt cabalistique des chaînes 
Q$|l) et QS(2). Si, si, faites l'ex¬ 
périence ! 

Après de longues recherches, 
(on ne va pas vous les détail¬ 
ler!), la solution est apparue: 
il faut que les éléments de 
la matrice (ou du tableau) 
aient été initialisés avant 
leur écriture en fichier. 
Ainsi,les 2 programmes 
suivants donneront les 
résultats corrects lors 
de la lecture avec 
"LECTMAT" 


On retrouvera dans D$ les données d'origine... en 
théorie ! Dans la pratique, il y a quelques règles à 
respecter. Le manuel utilisateur indique bien "Il va 
de soi que la matrice était définie et dimensionnée. 
Le système ne saura pas où mettre la tête, si vous 
chargez un fichier de matrice variable chaîne dans 
une matrice de variable réelle ou vice versa" etc... 


En respectant scrupuleusement ces indications, on 
peut penser que le programme suivant ne devrait 
poser aucun problème. 


10 REM ECRITMAT 
20 DIMQ$(10) 

30 Q$(l) = "AAA":Q$(2) = "BBB" 
40 !MSAVE"TOTO.ARY = Q$" 


10 REM ECRITMAT 
20 DIMQS(IO) 

30 FORN =0TO10:Q$(N) 
= " ":NEXT 

35 Q$(l) = "AAA":Q$(2) 

_"ODD" 

40 IMSAVE"TOTO.ARY 
= Q$" 


10 REM ECRITMAT 
20 DIMQ$(10) 

30 FORN =0TO10 


35 Q$(N) = ' 
(N):NEXT 
40 IMSAVE' 
= Q$" 


Q$" + STR$ 
TOTO.ARY 


Notez bien, à la liane 30 Q$ (N) = " Il y a un 
blanc entre les guillemets. Si, à l'exemple du listing 
ci-dessous, vous omettez ce blanc, pensant 
"initialiser une chaîne vide", ça ne marchera pas 
mieux. 

10 REM ECRITMAT 
20 DIMQ$(10) 

30 FORN=0TO10:Q$(N) = "":NEXT 
35 Q$(l) = "AAA":Q$(2) = "BBB" 

40 !MSAVE"TOTO.ARY = Q$" 

La lecture de ce court article vous évitera, nous en 
sommes convaincus, bien des pertes de temps... 









Utilisation du FTDOS 3-2 
et extension des extensions 


Thierry ETIENNE 


Vous en avez assez des extensions figées des fichiers sur JASMIN ? Alors 
voici un programme qui vous permettra de réaliser vos rêves les plus fous... 


Complément sur 
la structure de l'interpréteur 

Pour expliquer la manière de procé¬ 
der du FTDOS, il faut d'abord reve¬ 
nir sur l'interpréteur BASIC. Comme 
vous devez le savoir, toute ligne 
interprétée par BASIC est codée par¬ 
tiellement (cas des mots-clés GOTO, 
PRINT I...). 

Pour se repérer dans la mémoire, l'in¬ 
terpréteur utilise une routine située 
en $00E2 usuellement appelée 
CHRGET et possédant un pointeur 
en $00E9 appelé TXTPTR. Ce poin¬ 
teur contient en fait l'adresse 
mémoire du caractère à interpréter ; 
en mode direct, celui-ci adresse le 
buffer ligne (situé en $33) et un 
mode programme une ligne dans la 
zone programme. Lorsque, grâce à 
cette routine, BASIC trouve le mot- 
clé "!", il appelle la routine vectori- 
sée en $02F5 (JMP ($02F5)), soit 
pour le DOS l'adresse $400. Dès 
que la routine DOS est appelée, on 
découvre la RAM overlay (normale¬ 
ment masquée par la ROM du 
BASIC) et on appelle la routine inter¬ 
préteur DOS située en $D030. Et 
c'est là que votre DOS favori teste 
s'il connaît la suite de caractères 
après le "!". Pour cela, il utilise 
TXTPTR qui lui fournit l'adresse où 
il doit lire l'instruction à tester. S'il 
la trouve dans sa table d'instruc¬ 
tions, il appelle la routine adéquate 
à l'aide d'une table de Sauts. Sinon, 
il génère une erreur de SYNTAXE 
(sauf si IERSET). Bien sûr, lors du 
retour au BASIC, TXTPTR est actua¬ 
lisé. La table des mots-clés est en 
fait une suite d'instructions dont le 
dernier caractère de chaque mot est 
repéré par ajout de 128 à son code 
ASCII. Ceci explique le fait 
qu'aucune instruction du DOS ne 
puissent contenir de mots-clés du 
BASIC car ceux-ci possèdent des 
codes supérieurs à 128. Si vous 


rajoutez de nouvelles instructions à 
la table des instructions (voir listing 
source), n'oubliez pas de terminer la 
table par le code 0 car il faut bien 
que le FTDOS sache où s'arrêter ! 
Pour ce qui est des extensions de 
fichiers (.BAS, .TXT...), la structure 
de table est la même ; néanmoins, 
on ne peut l'étendre directement. En 
effet, la gestion du DOS ne prévoit 
que 9 cas possibles. 

Conséquences 

Dès lors, l'utilisation du FTDOS en 
langage machine peut donc se faire 
facilement. Il suffit d'exécuter les 
opérations suivantes : 

— sauvegarder le contenu de 
TXTPTR, 

— créer une chaîne ASCII à la 
syntaxe FTDOS (sous le "I"), 

— la terminer par un code 0, 

— mettre l'adresse de cette chaîne 
dans TXTPTR, 

— appeler le DOS : JSR $400, 

— restaurer le contenu de TXTPTR. 

Statut des extensions 

Initialement, le FTDOS permet d'uti¬ 
liser 2 classes d'extensions pour les 
fichiers : celles exécutables ".BAS, 
.CMD, .BIN" et celles réservées aux 
données ".DAT, .ARY, .SYS, .TXT, 
.SCR”. Par défaut, l'extension 
".BAS" est valide. Hormis celle-ci, 
toutes les autres, en dehors de leur 
utilisation standard, peuvent être 
affectées à des fichiers binaires. 
Ainsi !SAVE"TEST.DAT, # 1000, 
#2000" est possible, bien que 
TEST.DAT ne soit pas un fichier à 
accès séquentiel ou direct. 

Principe de la modification 

Afin de rajouter d'autres extensions, 
on va modifier le FTDOS de telle 
façon que, si une extension non 


répertoriée est rencontrée, celle-ci 
soit rajoutée en neuvième position à 
la table du DOS. Par cette modifica¬ 
tion, vous pouvez alors utiliser tou¬ 
tes les extensions possibles. Par 
exemple, les noms suivants sont 
possibles : "VACCIN.BCG'', 
"CODE.OBJ", "D0S2-2.0LD"... 
Ces extensions auront alors le même 
statut que l'extension .TXT. 
Comme il ne restait plus assez de 
place dans le FTDOS, le programme 
suivant modifie les routines du 
FTDOS en les condensant. On a 
ainsi rajouté l'instruction "IDISP" 
qui affiche sur la première ligne 
écran les adresses du dernier pro¬ 
gramme chargé. Cette instruction 
évite les fastidieux ?DEEK (#48D), 
DEEK (#48F). De plus, comme 
exemple, "IDIR" a été rajouté et est 
équivalent à "ICAT". 

Remarque 

Le programme source peut être 
directement saisi à l'aide du JASMIN 
assembleur. Autrement un pro¬ 
gramme BASIC est fourni. Il com¬ 
prend une somme de contrôle auto¬ 
matique des DATA. 

Chargement en RAM overlay 

Les premières lignes de DATA con¬ 
tiennent un programme permettant 
de transférer une zone mémoire en 
RAM overlay. Ce code objet est 
directement translatable. Pour l'ap¬ 
peler, il suffit de taper : CALL AD, 
SRC, LEN, DEST 
où 

AD est l'adresse du programme 
SRC l'adresse de la zone à translater 
LEN la longueur - 1 de cette zone 
DEST l'adresse de destination 

ATTENTION, cette routine n'est 
valable que si SRC ^ DEST ou si 
DEST >SRC + LEN. 
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100 

110 ' MDOS PROGRAMME DE CHARGEMENT DES DATA EN RAM OVERLAY 
J 20 ' 

130 HIMEM#1 FFF :CLS:AD=#2000:LIGNE = 0:GHK=Q:READ A* 

140 REPEAT 

145 FOR 1=1 TO 16 

150 A=VAL \ "#"+Aî):CHK=CHK+A+I :POKE AD,A :AD=AD+1 :READA$ 

155 NEXT I 

160 CHK=CHK+65536*<CHK>65535) : IF VAL("#"+A*)OCHK THEN 500 
170 PR INT"LIGNE "' 1000 + LIGNE: "OK":READ A$:LIGNE = LIGNE+10 
180 UNT IL A $ = " FIN " 

190 CALL42000,#2060.#7F,#E480 : CALL#2000,#20E0,#FF,#E100 
200 CALL.#2000,#21EO,#18F,#D030: CALL#2000 , #2370 . #2F, #C64B 
210 PRINT"FIN DE CHARGEMENT" 

220 PRI NT"N‘OUBLIEZ PAS DE SAUVER LE DOS PAR L'INSTRUCTION MASTER": END 

500 PRINT"ERREUR SUR DATA EN LIGNE"; 1000+LIGNE 

510 PR I NT " CHK= " HEX * ( CHK ) : END 

990 REM CODE PROGRAMME DE TRANSFERT 

1000 DATA A2,00,96,06,20,65,DO,20,53,E8,A6,06,A5,33,95,00,3345 
1010 DATA E8,A5,34,95,00,E8,86,06.EO,06,DO,E8,78,A9,01,3D,75D2 
1020 DATA FA,03,AO,00,El,00,91,04,C6,02,A5,02,C9,FF,DO,06,B32E 
1030 DATA A5,03,FO,1F,C6,03,18,A5,00,69,01 ,85,00,A5,01,69.DAEB 
1040 DATA 00,85,01,18,A5,04,69,01,85,04,A5,05,69,00,85,05,FC28 
1050 DATA 18,90,CF,A9,00,8D,FA,03,58,60,55,55,55,55,55,55,2E6A 
1055 REM CODE TABLE DES SAUTS 

1 060 DATA F2 , E3 , F8 , E3 , DB , F4 , FS , EO , 67 , F1 , BA , DC , 84 , DD , 24 , DE , 9 1 7A 
1070 DATA 1C,DE,4A,DA,A7,DC,35,F8,7E,F8,BA,C9,45,C4,9B,D4,EC5C 
1080 DATA 9A. D4,43,D2,35,D6,B9,C4,E6,C4,DE,C4,BE,F5,D9,F5,5976 


1 090 
1 100 
1110 
1 120 
1 130 
1 1 35 
1 1 40 
1 150 
l 160 
1 170 
1 180 
1 190 
1 200 
1210 
1220 
1230 
1 240 
1250 
1260 
1270 


DATA 

DATA 

DATA 

DATA 

DATA 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


-> î 

i , 

1 6 , 

OA, 


j j , 

CODE 

FF, 

44, 
57 , 
C4 , 
57, 
4 1 , 
43, 
D9, 
41 , 
4E, 

45, 
52 ? 
C5, 
4C , 


D6,8D, 
F3,B2, 
E4,29, 
55 , 55 , 

55 . 55 , 
TABLE 

42,41, 
41,D4, 
52,49, 

43.55, 

55, CC, 

56, C5, 
41,D4, 

44.45, 
52,D4, 
41,4D, 
D2,44, 

53.45, 

53.45, 
53,43, 


D6 .CD 
DE, BA 
F3,8B 


MOTS 
D3,42 

41.52 
54 ,C5 
D4.52 

43.52 
4D.4C 
4C , 43 
CC, 4C 
55,4E 
C5,49 
45,40 
D4,45 

41.52 
D2,46 


,C2,D6 
,DE,C2 
,D4,96 


,E7,AO,E7,C1,CE,CD,D3,CA,E7,C6B3 
,DE,BF,F 4,BA,CF,A5,FO,04,E4,293F 


J vj ; J I 


CLE 
,49,CE 
,D9,53 
,54,41 
,45,57 
,45,41 
,4F,41 
,41,D4 
,4F,43 
,53,54 
,4E,49 
,4F,55 
,52,4F 
,43,C8 
,D3,44 


C C 

» 7 ? 


55,55,55,' 


,53,59 
,43,D2 
,4B,C5 
,49,4E 
,54,C5 
,C4,53 
, 52,45 
,CB,55 
.41,52 
,D4,52 
,4E,D4 
,46,C6 
,4D,45,52, 
,49,D2,44, 


,D3, 
, 5C, 
,4A, 
,C4, 
,43, 
,41 , 
,4E, 
, 4E, 
,D4, 
,D3, 
,44 , 
,45, 


4 3,4D,C4 
41,D4,00 
55,4D,DO 
4F,50,45 
4C,4F,53 

56, C5,4C 
41,4D,C5 
4C.4F,43 
4D,4F,55 

57, D3,4D 
D3,48,45 
52,D2,57 
47,C5,48 
49,53,DO 


.54 
,CC 
,41 
, CE 
,C5 
,4F 
,43 
, CB 
,4E 
.41 
,4C 
,48 
,53 
,00 


,58 
, DO 
,50 
,57 
,4D 
,41 
,4F 
,53 
,D4 
,53 
, DO 
,45 
,43 


, D4 , 
, EE, 
,4E, 
,CC, 
,53, 
,C4, 
,50, 
,54, 
,44, 
,54 , 
,45, 
,52, 
,D2, 
, 55 , 


00C1 
4E01 
e3D9 
C37C 
F8BF 
330C 
65DA 
9C5C 
D44B 
0F4B 
49E8 
7F29 
B89C 
EDFF^ 
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1 280 
1290 
1 295 
1 300 
1310 
1320 
1 330 
1340 
1 350 
1360 
1 370 
1380 
1 390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1 490 
1500 
1510 
1520 
1 530 
1540 
1545 
1550 
1560 
1570 
1 580 


DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,1827 
DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,484F 
REM CODE PROGRAMME DECODAGE 

DATA A9,00,8D,15,DO,20,18,DO,AD,00,DO,AC,01,DO,20,49,7FDD 
DATA DO,BO,03,4C,85,CF,4C,97,DI,8D,69,DO,8C,6A,DO,8D,CE8B 
DATA 88,DO,8C,89,DO,AD,15,DO,8D,07,DO,CD,OB,DO,BO,34,14F2 
DATA A2,00,8E,06,DO,AC,15,DO,BD,20,El,30,08,01,E9,D0,60CE 
DATA 13,E8,C8,DO,F3,29,7F,D1,E9,DO,09,C8,8C,15,DO,AD,B155 
DATA 06,D0,38,60,EE,06,D0,BD,20,E1,F0,08,30,03,E8,D0,F751 
DATA F6,E8,D0,D1,18,60,AD,1F,02,DO,2D,A2,23,A9,20,9D,30A4 
DATA 7F, BB , CA , DO , F8 , A9,2'3,20,73 , C6 , A9,8D , 20,4F , C6 , A9,78BC 
DATA 2D,20,73,C6,A9,23,20,73,C6,A9,8F,20,4F,C6,CA,BD,C1E3 
DATA AE,04,9D,80,BB,CA,10,F7,4C,47,C5,60,EA,A9,00,8D,0754 
DATA 09,DO,8D,OC,DO,A9,01,8D,OA,DO,AC,15,DO,CC,OB,DO,4B80 
DATA 90,02,18,60,B1,E9,C9,20,DO,06,EE,15,DO,4C,DA,DO,9886 
DATA C9,3A,4C,B1,DI,EA,10,04,18,A9,FF,60,29,OF,C9,05,CD71 
DATA 90,04,18,A9,FF,60,AA,EE,15,DO,AC,15,DO,CC,OB,DO,18E0 
DATA 90,04,18,A9,FF,60,B1,E9,C9,2E,FO,04,18,A9,FF,60,6282 
DATA 8E,OA,DO,A2,00,EE,15,D0,AC,15,DO,CC,OB,DO,90,02,A2A0 
DATA 18,60,B1,E9,C9,2E,FO,1E,C9,20,DO,04,18,A9,00,60,D797 
DATA G9,3D,FO,F8,C9,2C,FO,F4,EO,08,FO,06,EE,OC,DO,9D,2835 
DATA 0D,D0,E8,4C,25.,D1 , EE, 1 5 , DO , A9,00 , AO , El , 20,49 , DO , 6E71 
DATA 90,OA,AD,06,DO,8D,09,DO,38,A9,00,60,A2,0Û,AC,15,A001 
DATA DO,CC,OB,DO,90,04,18,A9,FF,60,B1,E9,9D,19,E1,CB,F0E6 
DATA E8,E0,03,D0,EC,8C,15,DO,AD,1B,E1,09,80,BD,1B,E1,34E3 
DATA A9,09,8D,06,DO,DO,CB,AD,06,DO,OA,18,69,80,8D,A9,744E 
DATA D1,A9,00,69,E4,8D,AA,D1,6C,9A,E4,EA,EA,EA,EA,EA,DE9D 
DATA EA,10,05,C9,30,4C,F6,DO,CE,15,DO,4C,23,DI,A9,00,1E7S 
RËM CODE TRANSCODAGE ASCII 

DATA A9,3E,A2,00,AO,04,85,33,84,34,AO,01,B1,33,4A,4A,4C4B 
DATA 4A,4A,20,6B,C6,B1,33,29,OF,20,6B,C6,88,10,ED,60,8539 
DATA C9,OA,90,02,69,06,69,30,9D,AE,04,E8,60,60,A5,E9,C816 
DATA "FIN"# 


Programme source 


*+++*++.**■*.+**+********************************************* 

* LISTINb CODE SOURCE 6502 * 

* Assemblage à effectuer en RAM overlay $COOO-$FFFF * 

* La syntaie est celle du JASMIN ASSEMBLEUR * 

****M********M*******im««******** ********************* 


10 

REM MODIFICATION FTDÛS 3-2 

20 

REM ETIENNE Thierry JUILLET 1986 

30 

0R6 4E480 


40 

REM TABLE DES SAUTS 

;Cette table débuté en 4E480 

50 

HEX F2E3 


60 

HEX F8E3 


70 

HEX DBF4 

;Elle est constituée des 

80 

HEX F8E0 

jadresses des routines des 

90 

HEX 67F1 

jmots clé du DOS. 

100 

HEX BADC 


110 

HEX 84DD 

;Les vecteurs d’adresses 

120 

HEX 24DE 

;sont donnés dans le mime 

130 

HEX 1CDE 

;ordre que celui de la 


140 

HEX 4ADA 

; table des mots clés du DOS. 

150 

HEX A7DC 


160 

HEX 35F8 


170 

HEX 7EF8 

;Un vecteur occupe deux 

180 

HEX BAC9 

îoctets successifs. Le 

190 

HEX 45C4 

^premier octet contient 

200 

HEX 8BD4 

;le poids faible et 

210 

HEX 9AD4 

;le second le poids fort. 

220 

HEX 43D2 


230 

HEX 35D6 


240 

HEX B9C4 

;Par la suite cette table 

250 

HEX E6C4 

;sera exploitée par le 

260 

HEX DEC4 

:DOS pour appeler les 

270 

HEX BEF5 

; routines après décodage 

280 

HEX D9F5 

;des instructions. 

290 

HEX 21D6 


300 

HEX 8DD6 

:Par exemple UNIT 

310 

HEX CDC2 <- 

;appelera la routine 

320 

HEX D6E7 

; débutant en 4C2CD ► 
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$D008 : index de fin d’instruction 


330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

540 

550 

560 

5?0 

580 

590 

ïOO 

610 

t.20 

630 

640 

:50 

66Û 

670 

680 

.690 

MA' 


'Vl.l 

730 TYRE 
7 40 


HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HE.X 

HEX 

OCM 

0R6 

IMA 

IMA 

IMA 

IMÂ 

ÏHA 

IMA 

InA 

IHA 

IHA 

IHA 

IHA 

InA 

HEX 

REH 

ÙRb 

HEX 

IHA 

IHA 

IHA 

HEX 


A0E7 

CiCE 

CDD3 

CAE7 

16F3 

B2DE 

BADE 

C2BE 

BFF4 

BACF 

A5F0 

04E4 

0AE4 

29F3 

8BB4 

96D0 


;Cette fable n’esf pas 
; totalement reraplie ainsi 
;des instructions ont pu 
;?tre rajoutées. 

:fDIR a le même effet que 
; ! CAT (même adresse ). 
;IDI$P affiche les adresses 
; de chargement du dernier 
: programme lu . 
tadresse de ! DIR 
: adresse de 1 DISP 
55,5555.55555555555555 

55555555555555555555 <- octets libres pour 
55555555555555555555 d’autres mots cle 
5555555555555555 
TABLE DES HGT CLES 
$£120 
WRIT+ 

TAKWUHWN-CU 1 - 
REWIN-OPE fN I-Wü KREAT f 
C LÜS-mSAvirtLO A-U+tV-j- 
LÜA-lA 4 .Ca l RENAM+OjF* j 
DE H-OCtUNLOCtSTAR'- 
UNST AR IMÛUN t-iiNAH-j- 

1 NI >-R mASTE-r-CtEMOUN*- : ne peuvent don 

1 Par exemple 


B '-HEL-tERSE '-ERuF î€R r 
vfHER4€EARC lmER&[hS^ t 
LSCrf <• 

Dl-rDlS-*- 


tCetîe table confient 
tles mots clés du DOS. 
:La fin des mots des 
test reperêe en 
••ajoutant #80 a la 
tdermere lettre de 
; chaque mot. 

:Les mots contenant des 
•.mots BASIC de i’onc 
être 

: reconnu. 

; DELETE ne peut être 
: reconnu a cause de LET 


: Nouveaux mots cié 
00' :ATTENTION 0 = FIN DE TABLE 

TABLE DES EXTENSIONS DES FICHIERS. 


$ElOO 

FF 

BA 4X1 fSV v;h-T > Lûq 44 RJ 

SCr 
PR F 
00 


: Cet te table contient 
îles extensions prévues 
tpar DOS. Par définition 
tce sont des mots 
: d'exactement 3 lettres. 
:0 = fin de la table 


t*t.tt***t , *Xtt***t****++'*++**»**«*****+*1:*****t+ttt'tt+**1’+*** 

* ROUTINE principale de decoüage mot cle * 

* fait ia comparaison entre (TXTPTR) fîE9XEA) et les mots * 

t d 5 s inscrit dans la table des mots clés * 

* **».» t***t *t***+**Mctt*******»**.***+**♦*«*t****+***:Xft****** 


: Routines DOS : $CF85 
$D0l8 


; Index DOS : $0006 
$['015 


re»our BASIC par YSYNTAX ERROR 
positionne l’index de fin 
d’instruction t$D00B). La fin 
est rencontre? si le contenu 
de TXTPTR est NUL- (!) ou 
compteur représentant le rang 
du mot cle dans la table 
index de début 4 ’instruction 
le 1er caractère se situe en 
iTxTPTRi+!*B015' 


750 

REH DECODAGE DES 

INSTRUCTIONS LUES 

760 

ORG »D030 


770 

LDA #$00 

tPrepare pointeurs pour 

780 

STA $D015 

; comparai son avec 

790 

JSR $D018 

tles mots clés connus 

800 

LDA *DOOO 

tAdresse table dans 

810 

LDY $D001 

;AH >Yi+) 

820 

JSR TOKEN 

; Compare avec les mots 

830 

BCS TROUVE 

; de la table. Si inconnu 

840 

JHP $CF85 

talons 7SYNTAX ERROR. 

850 TROUVE 

JMP FIND 

: sinon appelé routine. 

860 TOKEN 

REM RECHERCHE SI 

INSTRUCTION CONNUE 

870 

REH A(-)Y(+) = ADRESSE TABLE â l’entrée 

880 

STA SL+1 


890 

STY SL+2 

tmitialise pointeurs 

900 

STA ShSV+1 

tpour structer la table 

910 

STY SMSV+2 

•■des mots clé 

920 

LDA $D015 


930 

STA $0007 


940 

CMP SDOOB 


95*) 

BCS FAUX 


960 

LDX #$00 

: index de table = 00 


STX »D006 

;$D006 = Compteur 

980 SUITE 

LDY $D0l5 

•.numéro mot cié 

990 SL 

LÛA $E120:X 


1000 

BMI FIN? 

tDerniere lettre mot ? 

1010 

CMP t$E9.'-Y 


1020 

Ht£ HS'.' 

: comparai son négative : ‘ 

1030 

INX 


1040 

INY 

tnon: suite comparaison 

1050 

BNE SL 


1060 FIN? 

AND #$7F 

ttest dermere lettre 

*070 

CMP ($£*)>Y 

î si comparaison etacte 

1080 

BNE MSV 

t fin.- le test est bon. 

1090 

INY 

tsmon mot suivant dans 

1100 

STY $D0l5 

:1a table 

1110 

LDA $D0Ô6 

:A=rang du mot cle dans 

1120 

SEC 

: la tabie. Mot reconnu 

1130 

RTS 

: retour avec C=i 

1140 «SV 

INt? $DOw> 


1150 snsv 

LDA $El20,> 


1160 

BEÙ FAUX 

tfm table mot cle 

1170 

6H1 FMSV 

tsi oui - mot inconnu 

1180 

INX 

tsi non 

1190 

BNE SMSV 

ton positionne i' index 

! 200 FH8V 

INX 

tsur le prochain mo’. 

1210 

BNE SUITE 


1220 FAUX 

CLC 

:îe mot ,;le est inconnu 

1230 

RTS 

:C=0 et retour 


* ROUTINE INSTRUCTION 'DISP * 
» syntaxe : îDISP * 
x affiche adresse de chargement sur la iigne d’etat » 
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1240 DISP 

LDA $21F 


: vérifié mode TEXT pour 

1250 

BNE FDISP 


: écriture en $BB8t) 

1260 

LDX l$23 



1270 SEFFLb LDA #$20 


; efface la ligne d'état 

1280 

STA ÏBB7F•X 


;$BB80 à IBBA3 

1290 

DEX 



1300 

BNE SEFFLb 



1310 

LDA #"# 


; inscrit signe # 

1320 

JSR STOCK 


;à la suite de ï4AE.. 

1330 

LDA #$8D 


: inscrit contenu $4SD 

1340 

JSR MHEXA2 


;à la suite 

1350 

LDA #"- 


; inscrit signe - 

1360 

JSR STOCK 



1370 

LDA #“# 


; inscrit signe # 

1380 

JSR STOCK 



1390 

LDA #$8F 


: inscrit contenu $48F 

1400 

JSR MHEXA2 



1410 

DEX 


; transfert butter $4AE 

1420 SDISP 

LDA Î4AE.-X 


; en $8B80 (affiche 

1430 

STA 4BB80..X 


: résultat sur la lere 

1440 

DEX 


: ligne écran! 

1450 

BPL SDISP 



1460 FBISP 

J MP 4C547 


: retour BASIC ou PROb 

*m****** *****•*****************************************+**** 

i 

RÛUTI!€ priric 

ipaie de 

oecodage extension * 

♦ fait la comparaison entre 

ITXTPTRi 

($E9/EAj et les * 

* extens 

ions prévues dans la table. 

Le statut d’une * 

* extens 

ion non prevue est 

celui de 

i l’extension .TXT * 


1470 

ORS ïB159 



1480 

LDA #$00 


; adresse table des 

1490 

LDt #$El 


; ex tensions 

1500 

JSR TÜKEN 



1510 

BCC FINI 


:si extension connue 

1520 FINI 

LDA $OÛOt- 


; al ors numéro en SD009 

1530 

STA *B009 


: 

1540 

SEC 


:extension connue 

1550 

LDA #$tX> 


: retour avec 0=1.* A=00 

1560 

RTS 



1570 FINI 
1580 

LDX #$00 

LDY $D0l5 


îfn instruction!’ 

1590 COUP 

CPY *DOOB 



1600 

BCC SFINI 



1610 

CLC 


;si oui ai ors erreur 

1620 

LDA #»FF 


: retour avec C=0? A=FF 

1630 

RTS 



1640 SFINI 

LDA t$E9î»Y 


:si non alors recopie 

1650 

STA TYPE.- X 


: ex tension lue dans la 

1660 

INY 


; Table 

1670 

1680 

INX 

CPX #$3 



1690 

BNE CÛMP 


imaroue la fin de 

1700 

STY $D0l5 


H’extension créé dans 

1710 

LDA TYPE+2 


:1a table 

1720 

ORA #*80 



1730 

STA TYPE+2 




1740 

LDA #$09 

tpositienne compteur 

1750 

STA $0006 

; extension connue !! 

1760 

BNE FINT 


xRoutine 

finale appelé la rnutine concernée par l’instruction 

; calcul l’adresse de celle-ci 

à partir de la table des sauts. 

1770 FIND 

LDA $D006 

; cal cul adresse saut : 

1780 

ASL 

; AD = 2*i$D006)+$E480 

1790 

CLC 


1800 

ADC #$80 


1810 

STA PTR+1 


1820 

LDA #$00 


1830 

ADC #$E4 


1840 

STA PTR+2 

;saut â la routine 

1850 PTR 

JMP ($E480) 

;vectorisée en AD 

1860 

NOP 


1870 

NOP 


1880 

NOP 

: pi ace innoccupee 

1890 

NOP 

;par le DOS 

1900 

NOP 


1910 

NOP 


r>20 

BPL $D1B8 


1930 

CMP #$30 


1940 

JMP $D0F6 



m:**tfm******W-*******.+**-t^ 

* ROUTINE principale 4e transcodage * 

* converti une adresse pointée par At-)>Yf.*j en une chaîne* 

* ASCII qui représente cette adresse en hexadécimal * 


1950 

ORS 

$C64B 


196C> 

REM 

MODIF TRANS-ASCII 


1970 MHEXA 

LDA 

t$3E 


1980 MHEXA1 

LDX 

#$00 


l9'?i) MHEXA2 

LDY 

#$04 


2000 

STA 

$33 


2010 

STY 

$« 

;t$33)contient 

2020 

LDY 

#$01 

m’adresse a transcoder 

2030 SMHEXA LDA 

($33)Y 

: en hexadécimal 

2040 

LSR 



2050 

LSR 


: transcode poids Tort 

2060 

LSR 



2070 

LSR 



2080 

JSR 

THEaA 


2090 

LDA 

($33)-Y 


2100 

AND 

#$0F 

: transcode poids faible 

2110 

JSR 

THtxA 


2120 

DEY 



2130 

BPL 

SMHEXA 


2140 

RTS 


: transforme A en ASCII 

2150 THEXA 

CMP 

#$0A 


2160 

BCC 

SHEXA 


2170 

ADC 

#$06 

: ajustement ASCII 

2180 SHEXA 

ADC 

#$30 

:ajoute code ASCII de 0 

2190 STOCK 

STA 

$4A£-X 

: range A dans ie butter 

2200 

INX 


;e + incémente index 

2210 

RTS< 

» 
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MOULINS MKRO PERON 
90. lue Regemorte» 

03000 MOULINS 


LIBRAJRIE PRIVAT 
14. rued» Arts 
31000 TaJous* 


GUERUéMAfmN A RIS - UBRAIRIE 
82. pie» Drouet (fE/tar BP 216 
51066 REIMS CEDEX 


ARPAJOU-ORGANISATION 
12pU»delaCatvédraie 
64100 BAYONNE 


SHOP PHOTO 

33. rue Commandant Mouchotte 
75014 PARS 


L'ORBLLE HARDIE 
Cente Comaroal Intermardté 
04000 DIGNE 


LA PUCE SAVANTE 
6. Bd de la Gara 
31500 TOULOUSE 


LIBRAIRIE IA CH AUD 

9. rue du Cadran Sent Ffctre BP 360 

51062 REIMS CEDEX 


GES PYRENEES 

28. rue de Chasan 
64600 ANGLET 


FNAC ETOILE - Conte MCE Etoile 

30. avenue Jean Médecin 

06000 MCE 

UBRAJRIE MOLUT 

83 è 91. rue Pate-D^eam 

33080 BORDEAUX 

HI-FI DIFFUSION - Jxmco SARL 

19. ru* Tcndut d* rEacarin* 

06000 NICE 

FKA.G 

Cente oammeràaJ Pctygcne 

33000 BORDEAUX 

UBRAJRIE A LA S0R80MJE 

SNC Seyrat 

23. rue Hôtel des Postes 

42. rue Groflredo 

06000 NICE 

SON VIDEO 2000 

MICRO-AQUITAINE (El COCAS) 

31. Coos deTYsa 

33800 BORDEAUX 

GES COTE D'AZUR 

Réoden» les Heaes Claires 

454, rue des Vacouenes 

06210 MANDaiEU 

UBRAIRIE A LA S0R80MJE 

7. rue des Belges 

06400 CANNES 

PANORAMA DU UVRE 

UBRAIRIE DES ECOLES 

Cente Canmaaai CAP 3000 

06702 ST LAURENT DU VAR 

INFORMATIQUE 2000 
cia» René Dévie Le Tnanale 

34000 MONTPELUER 

MICROPUS 

15. Bd Gambette 

34000 MONTPELUER 

LIBRAIRIE SAURAMPS 

Le Triangle 

Alée Jiies Mtiau BP 9551 

34045 MONTPELUER CEDEX 

FORUM DU LIVRE 

6 quai Lamartn* 

35000 RENNES 

MICRO STORE 

3, plao* Si G*rma*i 

35000 RENNES 

UBRAIBE DIALOGUES 

LOISIR A CULTURE 
ru* da la ChaJotte 

35000 RENNES 

MC RO POU S 

29. me Pâlot de Mantabert 

10000 TROYES 

U BRAIRE DE L’UMVERSTTE 

12 A. rue Nuarefi 

13100 AJX EN PROVENCE 

FNAC MARSEILLE 

Cente Bour» 

13231 MARSEILLE CEDEX 

UBRAIRIE FLAMMARION 

54. te Camebère 

3. Mâché des Capucins 

13231 MARSEJlIFCEDEX 1 

MAU PETIT UBRAJRIE 

U MYERS ALLEES 

144, U Canebére 

13232 MARSEILLE CEDEX 01 

LA PUCE NFORMATOUE 

42. rue du Foa Boag-Neul \ôew Salai 
13300 SALON DE PROVENCE 

MERO-C INFORMATIQUE 

3. Bd de Beeumoii 

35000 RENNES 

LGL NFORMATTOUE 

48, Bd de U Ubaté 

35000 RENNES 

VIDEO SERVICE WFORMATX3UE 

GALLE 

9. [dao* du Prted«K Cet) 

37100 TOURS NORD 

UBRAIRIE ARMOIRIES - JABALOT a 

26, ru* SainFYcn 

17000 LA ROCHELLE 

Mil 

21iu*Alxrt1« 

17000 IA ROCHULE 

Cente Canmaaai CATS 

37170 CHAM8RAY LES TOURS 

LIBRAIRIE ARTHAUD 

23. Grande rue BP 187 

38000 GRENOBLE 

LIBRAIRIE HARa 

11. rueSamt Jeooj» 

38000 GRENOBLE 

GES CENTRE 

2b rue :^le«* 

18Y.0 00 «GES 

LI8RAJHE VIDONNE 

134. rue de la Rioubéque 

39400 mopf: 

U&T.AJW Zi . J**• FRSITE 

• . •• • ^ - = 5070 

H’-y.t iV. JH F JhlON PRESSE 
* ' .• ”> un» 

•J.HAC 

LIBRAIRIE P» P Ci 

3. rue du C ■* • 

41000 Bc" 

LIBRAJ RI L LA. 1ER3S 

40. rue Chariw. Gaule 

42300 ROANNE 

c-:jSSOI USRAHE 
idGaJd«G*J* 

«000 VALENCE 

UBRAJRIE G OUGUa 

TECHMQUE ET CLASSIQUE 

8. pu» de !a Boa» 

44000 NANTES 

UBRAJRIE LEGUE - AU UVRE DGR 

10. ru* NoAJ Bal» 

29000 CHARTRES 

UBRAIRIE 0. LESTER 

13, te ru* du Cran* BP 124 

29007 CHARTRES CEDEX 

ftflCRONAUTE 

9. rue Urvoy de Stent Bedan 

44000 NANTES 

K EM PER INFORMATIQUE 

72J74.*vd* la Lite lion 

29000 OU IMPER 

UBRAJF9E LOOOE 

Ante ru*a J tfArc 1 Royte 

45000 ORLEANS 

CASTEUS.A. 

LA MAISON DU STYLO 

20, plao* du Capte* 

31000 TOULOL6E 

FNAC TOULOUSE 

UBRAJME DES CAPTOULS 

1 bit. pJanOocttn* 

31000 Toteu» 

RJCHER UBRAIRIE 

6. me Chapooveae 

49000 ANGERS 

DEPOT REOONAL DE UBRAJRIE 

FORUM 

Cente Commerote 
*Lee Htetee* BP 811 

49008 ANGERS CEDEX 


LOGiiCRO 
M Lertéer 

2 ev. de Leon 
51100 REIMS 


MLL 

27. rue Ambra» Paré 
53000 LAVAL 


MICRO-PYRENEES 

41, rue du 4 septembre 

65000 TARBES 


OR01-2000 

Thierry COLENO 

127, av du Reatnent de Bgarre 

65000 TARBES 


BERGER VICTOR 
LA GRANDE UBRAIRIE 

13.15 rue Si Georges 
54000 NANCY 

UBRAIRIE 'A LA S0R80NNT 
F. SCHMTTZBERGER e< Cie 
12.rueSt Oner BP 25 
54002 NANCY CEDEX 


U BOUQUINE RIE 
7. rue du Pal 
56100 LORÉNT 


CSE. 

Mchel LLfTZ 
6. rueCkMS 
57000 METZ 


MCRO BOUTIQUE - E CONO MAIS ON 
1-3. rue Peul Besançon. 
pU» de la Catiédr «e 

57000 METZ 

ELECTROMC CENT ER 
16. rue Ancien Hâptai 
57100 THONVUE 


FURET DU NORD 
15, pia» de GaJte BP 2S5 
500Û2ULLE CEDEX 

MCROTEX - TAOUM 
22. pleoe de U r éputéque 
50170 CROIX 

FURET DU NORO 

20. pie» de U Répubéque 
50200 TOURCOING 

FURET DU NORO 

21. rue du Ouean» 

50300 VALENCIEN NES 

PROTEC PHOME 
9. rue Si Jeooues 
5Ô600 DOUAI 

ANTENNES PHNGAULT 
39.1er roule de Fogreee 
EUGE 


59600 MAU BEU 


FURET DU NORO - DE ROME SA 
18 et 20. or. Jean Matou» 

59600 MAU BEUGE 


FURET DU NORO 
15. Bd Bady 
62300 LENS 


LENS ME RO INFORMATIQUE 
96 av Aflred Ma es 
route de UeMn 
62300 LENS 

MCROGICIEL 
Bernard Thomas 
2. pie» P Bonhonme 
62500 SI OMER 


GES NORO 
9. rue de r Alouette 
62600 ESTREE CAUCHY 


GIBERT JOSEPH UBRAIRIE 
42. av des Etats-Um» 

63000 CLERMONT FERRAND 

UBRAJRIE LES VOLCANS 

80. Bd Gergowa 

63000 CLERMONT FERRAND 

NEYMAL 
3. Bd Deean 

63000 CLERMONT FERRAND 

BASE 4 Librairie 

Enc GRENIER 
11, rue Samcrue» 

64000 PAU 


NFORMATIOUE SERVICE 
68. rue Maréchal Foth 
66000 PERPIGNAN 


MEROCENTER 
Centre Ccmmaaai 
pU» des Haies 
67000 STRASBOURG 

BERGER LEVRAULT 
23 pU» Brogl* 
6708ÎSTRAS8OURG CEDEX 


UBRAJRIE HART MATAI Paul 

24. Grande rue 

68025 COLMAR CEDEX 

ALSAT1A UNION 
4. pu» de la Reunon 
68051 MULHOUSE 

UBRAJRIE G BISE Y 
35. pU» de te Réoeon 
68100 MULHOUSE 


GES LYON 
6. rue de fAima 

69001 LYON 

FUU4MAR0N UBRAIRIE 
19. pie» Beiec o ur 

69002 LYON 


UBRAJRIE CAMUGU 
6, rue de la Chante 
69002 LYON 


UBRAJRIE DEOTRE 

6. pU» Beiec our 

69002 LYON 

TOUT POUR LA RADIO 
66. Coas LafayeOe 

69003 LYON 

MERO-GESHON-FOCH 
25, rue de Sê» 

69006 LYON 


U8RAJRIE MFORMATIÛUE 
MONT Al G 
8. rue Ré Bene*i 
74300 aUSES 


GIBERT JEUNE 
15.be Bd St Dente 
75006 PARS 

FNAC ETOILE 
26. avenue de Wagram 
75008 PARS 

MEROF>LUS "ELYSEE S 26" 
28. «v. Champs Elysées 
75008 PARS 

MEROPLUS 
SM K BS ELECTROMCS 
64. rue de la Chaussée dAnén 
75000 PARIS 

UBRAJRIE PAHSIEMJE 
DE LA RADIO 
43. rue de ftrtoque 
7S480 Parte Cédee/10 

V *MO 

84. Bd Beaonachao 

75011 PARS 

CHOLET COMPOSANTS 
ELECTROfIQUE 
2, rue Emèo-Casteiar 

75012 PARS 

GENERALE 

ELECTROfIQUE SERVICES 
GES Parte 
68 et 76. av Ledru RoNn 
75012 PARS 


FNAC FORUM 
1. tue PSare-Lescot 
75045 PARS CEDEX 01 

UBRAJRIE EYROLLES 
61. Bd St German 
75240 PARS CEDEX 05 

UBRAJRIE DUNOO 

30. rue Samt-Sulp» 
75278 PARS CEDEX 06 


cm ZEN BANO 
31. Bd delà Marne 
76000 ROUEN 

UBRAJRIE LESTRMGANT 

123. rue Gai Leclerc 
76000 ROUEN 


ETS THOMAS 
MICRO-INFORMATIQUE 
153, av de la Répubfcxie 
78500 SARTROU VILLE 


UBRAJRIE DaOCHESA 
21. rue de la République 
82000 MONTAUBAN 


UBRAJRIE GAY 
4. pU» de la Liberté 

83000 TOULON 


U BRAIRE AMBLARD 
10-14. Patte Materai 
84000 AVIGNON 


RC ELECTRONS 
Mr MARTIN Rabat 
53. rue NActa Hugo BP 12 
84100 ORANGE 


GIBERT J. UBRAJRIE 
9. rue Gambette 
86000 POOIERS 

MAJUSCULE POTTOU 


3. tes rue de r Eperon 
86000 POITIERS 


UBRAIRIE 
DE L'UMVERSTTE 
70. Rue Gambette BP 109 
86003 POITIERS CEDEX 


U BR AJ FIE BARADAT 


87100 UMOGES 


SOL 

25. route de Moitergis 
88300 JOIGNY 


NKXH AU-M ARECH AL 
U BR Al FIE DU LYCEE 
100. Grande-Rue 
91160 LONGJUMEAU 

LGV 

130. rue de Cobei Vlemoèson vOrge 
91360 EPfiAY SORGE 


LOISfTECH 
Cente Tarnete 93 

83106 MONTREUIL 

O ROI PLUS 
7. pU» Cameinat 
83600 AULNAY &BOS 


BERTHET A. SA 
UB. de le Grande Rue 
105. Grande F^e Ch de GaUle 
94130 NOGENT SUARNE 

OROMOUa 
20. rue de Montreal 
94300 V1NCENNES 

LADNER SA 

175, av du Général Lederc 
94780 MASON-ALFORT 


AVEN A STE 
SquaeCdontoa 
BP 94 

96021 CERGY CEDEX 

U BR Al FIE 
POCHOTHEOUE 
LECUT Pierre 
2. rue de Steingrad 
96120 ERMONÎ 
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LES DISQUETTES DE THEORIC 

N'usez plus le bout de vos doigts à saisir les listings de la revue. Nous vous proposons, réunis sur une même 
disquette, tous les programmes publiés dans deux numéros de THEORIC (consultez la liste ci-dessous pour 
commander ; aucun échange ne sera accepté). Les disquettes n° 1 à 14 n'existent qu'en format 
JASMIN. A partir de la disquette n° 15, elles sont disponibles en format JASMIN ou SEDORIC. Bien pré¬ 
ciser lors de la commande. 

Prix :116F pour les abonnés à la revue (joindre impérativement l'étiquette d'abonné) ; 146 F pour les 
lecteurs non-abonnés. 

AVERTISSEMENT IMPORTANT : les programmes stockés sur ces disquettes sont tels que parus dans THEO¬ 
RIC. A vous de les adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N“ 1 THEORIC n # 4 »t 5 
N° 2 THEORIC n° 6 et 7 
N° 3 THEORIC n° 8 et 9 
N° 4 THEORIC n° 10 et 12 
N° 5 THEORIC n° 13 et 14 
N° 6 THEORIC n° 15 et 1 6 
N° 7 THEORIC n° 17 et 18 
N° 8 THEORIC n° 19 et 20 
N° 9 THEORIC n* 21 et 22 
N° 10 THEORIC n° 23 et 24 
N° HS THEORIC HORS SERIES (n° 11) 
N° 11 THEORIC n° 25 et 26 
N° 12 THEORIC n" 27 et 28 
N° 13 THEORIC n* 29 et 30 
N° 14 THEORIC n° 31 et 32 
N° 1S THEORIC n° 33 et 34 


ATTENTION I II n'y a pas de programme TELESTRAT sur cette disquette. 



VOUEE : T033434 


U 

CALGORIC.BAS 

S 

15 SECTORS 





U 

noos 

.BAS 

s 

18 SECTORS 

U 

BIDONI .BAS 

S 

2 SECTORS 

U 

LLIST 

.BAS 

s 

11 SECTORS 

U 

BIDON? .BAS 

S 

2 SECTORS 

U 

BUS1DUE .BAS 

s 

23 SECTORS 

U 

CATQBML.BAS 

S 

26 SECTORS 

U 

CARAC 

.BII 

s 

10 SECTORS 

U 

VD1ILIST.BAS 

S 

36 SECTORS 

U 

C0RST 

.BII 

s 

2 SECTORS 

U 

TRAIES .BAS 

S 

60 SECTORS 

U 

CARAC 

.BAS 

s 

13 SECTORS 

U 

nsTiim.BAs 

s 

14 SECTORS 

U 

COICST 

.BAS 

s 

19 SECTORS 

U 

TEST I tSO 1. BAS 

s 

10 SECTORS 

U 

REELS 

.BAS 

s 

4 SECTORS 

0 

HOTE IAPR. BAS 

s 

39 SECTORS 

U 

PACT0RI 

.BAS 

s 

5 SECTORS 

U 

BOTE 11101 .BAS 

s 

30 SECTORS 

U 

VIDEOTEX. BAS 

s 

35 SECTORS 

U 

B0TE8E/S.BAS 

s 

41 SECTORS 

0 

VARANCAL.BAS 

s 

21 SECTORS 

U 

B0018E/S.BAS 

s 

30 SECTORS 

1 

COIWIRI.BII 

s 

3 SECTORS 

U 

SMIC .BAS 

s 

54 SECTORS 

U 

COfFHIRC.BIl 

s 

5 SECTORS 

0 

OESCAIITE.BAS 

s 

29 SECTORS 

U 

VOILIER .SCR 

s 

33 SECTORS 

U 

CARTE .BII 

5 

33 SECTORS 

0 

90 

.SCR 

s 

33 SECTORS 


□ JASMIN BON DE COMMANDE 

□ SEDORIC DES DISQUETTES THEORIC 


Je commande les disquettes 1, 2, 3, 4, 5 HS ; 6, 7, 8, 9, 
10, 11, 12, 13, 14, 15 

Ci-joint :116F par disquette et mon étiquette abonné 
146 F por disquette car je ne suis pas abonné 

Soit au total la somme de F réglée par chè¬ 

que ci-joint. 


NOM .Prénom 

Adresse. 

Code Postal .... Ville . 
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Pour nous aider à mieux cerner vos désirs, 
remplissez le dos de ce bulletin, 
découpez-le et retournez-le à l'adresse suivante 

Editions SORACOM 
SONDAGE MENSUEL THEORIC 
La Haie de Pan 
35170 BRUZ 


Inscrivez vos remarques et suggestions ci-dessous : 


Matériel utilisé 


(facultatif) Nom 


Prénom 


Adresse 


r 


PETITES ANNONCES 


La plaça réservé* aux patltaa annonça* att 
limité*. En conséquence, caNas-ci passant 
dans laur ordra d'arrtvéa. Par contra, las patl- 
tas annonças farlsluas sont systématlqua- 
mant rejeté**... Damêma. comma II ast pau 
probabla qu'il axista das "généraux dona- 
taurs" dp matériels ou de logiciels, las peti¬ 
tes annonces faisant appel é cas phllantro- 
pas ne seront insérées qua si la place libre 
la permet. 

Seront refuséee toutea la* annonces visant 
à vandra ou échanger des listas ou copias de 
logiciels non garantis "d'origine", ainsi qua 
tout* annonça incitant au piratag*. 

En conséquence, réfléchissez bien avant 
d'anvoyar vos textes. 

Las petit** annonças doivent impérativement 
nous parvenir sur la grill* (découpée ou pho¬ 
tocopié*). I* texte étant rédigé é raison d'un 
caractère par casa. 

Enfin, tout* annonça non accompagné* d* 
timbras n* sera pas Insérés. 

Vends ATMOS + monit. mono +magnéto + stylo 
opt. ♦ carte mère + 70 jeux + livres : 200 F. Tél. 
30.55.05.96 (le soir). 

Cherche schéma matriçage clavier ORIC/ATMOS 
ou achète ATMOS HS pour récup. LARUE - 33. 
rue des Paturins - 54280 Seichamps. 


ATMOS/ORIC 1 + Jasmin + MCP40 + easy text + 
origraph + multifich + copytel + jeux + Théorie : 
3500 P. ATMOS + moniteur N/B : 800 F. Tél. 
1.30.50.99.14. 

Vends Télestrat juin 86. microdisc + disquettes, thé¬ 
orie : 3000 F. Grégory KURZ - 14, rue Gallieni - 
92100 Boulogne-tél. 1.46.21.33.12. 

Recherche logiciel de gestion protefeuille. Actions 
pour ATMOS et notice pour mission Delta. Tél. 
57.42.17.23 le soir. 

Vends ATMOS + adapt. N/B + manuel + 1 livre pro¬ 
grammes ♦ 10 K7 : 500 F à débattre. Nicolas - tél. 
42.87.10.11. 

Cherche contact pour échange ou achat de jeux 
pour ATMOS. Demander Benjamin au 48.26.26.27 
après 18h00 (Charost, prox. bourges). 

Cherche Forth de Tansoft, scrabble, lancelot + ma¬ 
nuel d'utilisation. Echange contre 5 jeux, chacun 
sur disquette Jasmin. M. LAUX Gilles - 3, allée des 
coquelicots - 57310 Guérange. 

Vends ATMOS + SEDORIC + MCP40. 20 dis¬ 
quettes doc, livres astuces. TBE, nbx jeux Théorie : 
2500 F. Tél. 48.44.80.08. 


Vends disk maître SEDORIC + manuel : 150 F. Vor- 
text (K7 d'origine) : 100 F. P. LECLERC - 5. bis rue 
carnot - 95170 Deuil La Barre. 

Vends 30 jeux ORIC (très bien). Poss. vente à Puni- 
té. Environ 45 F Pun. Tél. 80.55.69.31 après 18h30. 

Vends ORIC/ATMOS complet + jasmin 2 + modula¬ 
teur Tunb + livres + rev. Théorie : 2500 F. BEAUS- 
SIER J.-Marc - tél. 60.17.64.74 après 18h00 - 
Torcy. 

Vends pour ATMOS alim secour + régul. charge K7 
♦ DK BD disk neuf 1053 cédé : 800 F TPS. POU- 
JADE CJ P -Les Séracs -28410 Bu. 

Vends ATMOS + modulateur N/B intégré + péritel + 
câbles + manuel + 8 K7 (Aigle d'or. Dambuster, 
Xemon 1...), le tout :990 F. Tél. 37.41.90.51. 

Vends ORIC/ATMOS + interface N/B + péritel + câ¬ 
bles. le tout en TBE : 600 F. Tél. 93.39.55.79 après 
19h00. 

Cède les 800 log. Jasmin-SEDORIC (cause vends 
Jasmin) : 10 F/prog. Saint-Hubert Antoine - 18, rue 
des Huches - 21800 Quebgny. Rep. assur. 

Achète revue Microric (numéro 6 à 10), écrire à Flo- 
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Notez les articles de ce numéro selon les critères suivants : 

0 : ne me concerne pas 1 : ne m'a pas intéressé 

2 : intérêt moyen 3 : intéressant 

4 : très intéressant 5 : passionnant 


Option globale sur ce numéro : 


• Actualité □ 

•L'ULA 10017 □ 

• L'horloge du temps réel □ 

• Trucs et astuces □ 

• Jeu : Miss Caterpill □ 

• Forth : Soft Buffer □ 

• Trames □ 


• Tous les produits pour ORIC □ 


• Sautez la pliure □ 

• Programmez et contrôlez 

un moteur □ 

• Géoric □ 

• Calculatrice □ 

• Interface pour Microdisc 

• Comment utiliser "Convert" □ 

• IMSAVE et IMLOAD 

• Utilisation du FT-DOS 3.2 □ 


Vends ou échange contre ORIC-1 Théohc n“ 1 à 
10 plus n° hors série et programmes du 6502 par 
Rodnay 2AKS. GRANGER Bernard - 43. rue Vicary 
- 02170 le Nouvion - tél. 23.97.11.16. 

ATMOS cherche correspondants pour échange lo¬ 
giciels et trucs. Achèterais MCP40. Richard 
LESOURD - Le Deschaux - 39120 Chaussin. 

Vends ATMOS 2 ROM + Microdisc ♦ modem digite- 


lec DTL 2000 ♦ logiciels ♦ livres et revues : 2000 E. 
Tél. 22.42.08.69. 

Cherche ORD. HS envoyez à GAZELLE Lionel - 
Place de la Mairie - 55110 Monïgny-St-Sassex - 
tél. 29.80.92.44 


Vends Télestrat + ROM ATMOS + revues Théo¬ 
rie. le tout ; 3500 F. Tél. 64.90.92.96 après 
18h30, demander Serge. 


Recherche Onciens désespérément pour échanges 
d'idées et de programmes. LEGRAND Yann - tél. 
21.82.87.73 après 18h00. 

Vends, échange programmes (jeux, util.l. cherche 
FTDOS pour Jasmin 1. Tél. 43.64.29.47. 

A vendre Télestrat + son lecteur 3" Microdisc + 
MCP40 pour un prix de 1900 F. LEBRETON J.-F. 
- rue du Centre - 50520 Juvigny le Tertre. 

Echange logiciels sur Jasmin. Tél. 89.58.74.40 



Vous pouvez passez directement vos annonces sur le minitel. 

Attention : Dans un tel cas elles ne seront pas dans la revue. Une annonce envoyée à la rédaction 

est mise sur le serveur dans les 48 heures. 
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Coupon à renvoyer accompagné de 4 timbres à 2,20 F à : 
SORACOM, La Haie de Pan -35170 BRUZ 


Gagnez du temps ! Syr Minitel 36.15, tapez MHZ 


X 
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Deux livres indispensables pour mieux utili¬ 
ser les routines internes de l'ORIC-1 ou de 
l'ATMOS. 


L'auteur est un fervent passionné 
d'ORIC. Il a décortiqué avec soin les 
mécanismes des routines internes 
de l'ORIC-1 et de l'ATMOS. D’un 
contenu très dense, tout en restant 
à la portée des débutants, ces 
deux ouvrages proposent tour à 
tour des commentaires abondants 
sur le système interne, des exerci¬ 
ces et des programmes utilitaires 
mettant en application les principes 
acquis. 

Les prix publics de ces 2 tomes 
sont respectivement de 138 F et 
120 F. Nous sommes en mesure 
de vous les offrir à 99 F pièce 
ou,mieux, pour 149 F les 2 ! Une 
inestimable économie... 
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